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MICRO LANGUAGE LAB = 
LEARNING THE 6809 

r_ eeling at the mercy of a program- 
■ mer somewhere ? Mystified by a 
machine? My Micro Language Lab 
will give you the power to end 
those helpless feelings. 

Here's why. The heart of any com- 
puter program anywhere is machine 
language. Every piece of software uses it 
— your favorite game, spreadsheet, 
word processor, data base manager, or 
recipe file. Every time you hit "Enter", 
it's working. All the languages and 
operating systems are created from it. 
Basic, Fortran, Pascal, Flex, OS-9, 



TRSDOS . . . they're 6809 machine 
language, the whole lot! 

And you can learn the language of 
the 6809, the programming heart of 
your Color Computer, with my Micro 
Language Lab. 

Not everyone can program. Writing a 
few lines in Basic now and then doesn't 
make you a programmer. But if you can 
program, then my Micro Language Lab 
will teach you — the right stuff, the 
right way. 

I'll teach you in 24 half-hour lessons 
on 12 audio cassettes, with a 220-page 
textbook, with data booklets, with 35 
sample programs, and with a program- 
ming reference card. You'll spend 50 
hours or more with my course, listen- 
ing, watching, and working. And when 



you're done, you'll be programming 
your Color Computer in the 6809 's 
language. 

Stop ignoring those gnawing feelings 
of helplessness. The 6809 is where the 
power lies in your computer. Turn on 
that power with the Micro Language 
Lab. 

• Micro Language Lab, $99 00 

(plus $3.50 shipping and handling) 
Requires 16K Extended Basic EDTASM + 

Not sure? Write or call for a Table of 
Contents and sample pages — and your 
"I'll Teach You 
A Lesson" 
button! 



ALSO AVAILABLE FROM GREEN MOUNTAIN MICRO 



(Add $2.50 shipping and handling to your 
order) 

Lowerkit III 

• Full-time upper and lowercase installs 
in 15 minutes. 

• Normal and reverse video standard 

• Fully compatible with all Alpha and 
Graphic modes 

$79-95 assembled and tested 
$49-95 complete kit of parts 
Important! Specify Color Computer or 
Color Computer II 

TV Buff II, clear image for video 
monitors, $19-95 (specify C0C0 or CoCo2) 



CoCoPort parallel interface (now in- 
cludes plastic case), $54.95 / $44.95 kit 

ColorPack ROM/RAM pack, $29-95 
(specify configuration) / $19-95 kit / case 
$3.00 extra 

64K memory upgrade kit with full in- 
structions, $49.95 /with memory test on 
tape, $54.95 

Color Quaver Software Music Syn- 
thesizer on tape (requires 32/64K), $19-95 

Color Burner EPROM Programmer 
(2716/32/32A/64/64A/128, 68764/66) with 
software, $69-95 / $56.95 kit 




User Group, Educational, Club and 
Dealer Discounts are available. 

TRS-80 and TRSDOS are trademarks of Tandy Cor- 
poration. Flex is a trademark of TSC, Inc. OS-9 is 
a trademark of Microware Corporation. 

Green Mountain Micro 

Bathory Road, Box U 
Roxbury, Vermont 05669 
802 485-6112 

Hours: 9am - 5pm EST, Monday - Friday 
COD/VISA/MASTERCARD 
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/ recently heard of a program by Dennis Kitsz that 
teaches Assembly Language. What are the facts on 
this? Also, I'm looking for an Epson printer for my 
16K CoCo 2 cheap. Any ideas? 

P.K. 
Plaquemine, LA 

You heard correctly. His 6809E lessons are 
reviewed in the January 1984 issue of Hot CoCo. 
The reviewer, Richard Ramella, gave them a good 
review and recommended them. The only warning 
is that you must want to learn to program or you'll 
become bored and not finish the tapes. 

If you live near a large city, check the stores for 
"want-ad" booklets. These frequently have com- 
puter equipment for sale. Also, check the news- 
papers, local computer stores, and user groups. 
Someone is sure to have an Epson for sale that you 
can afford. Just be sure the Epson you get has an 
RS-232 board installed or it won't be of any use to 
you. 

What are the differences between csave "file-name" 
and csave -file-name' ',a? What are the pros and cons 
of each? 

Is there a command to data-files as SKIPF is to 
programs? If so, what is it? 

Cory Sawyer 
Lanesboro, MA 

The csave "filename" ,a syntax is used to save a 
Basic program in ASCII format instead of the nor- 
mal tokenized format. All the Basic commands, such 
as Print, INKEY$, etc/are saved as text, just as you 
see them on the screen, instead of their one-byte 
tokenized forms as they are normally stored in 
memory and on tape (tokenized programs take less 
tape space and load quicker). 

The advantage of the ASCII format is that pro- 
grams saved in that form can be read by other pro- 
grams with the normal input#-i statement, as if they 
were data files. Similarly, programs can be loaded 
into word processors for manipulation and modifica- 
tion and saved to tape for reading back into Basic. 

The disadvantage is that you have to watch that 
the length of the ASCII Basic program lines aren't 
longer than 244 characters, or you'll get a DS Error 
message (direct statement error) when you try to 
reload the program (a DS Error means you tried to 
load in ASCII or tokenized characters without there 
being a line number in front of them). 

The only safe way to do it is to save the program 
normally, then save it in ASCII and reload it. If you 
get a DS Error message, list the file to find the last 
line that loaded correctly. Now reload the normal file 
and list it to the line after that one. The line after the 
last one to load is the errant line. Edit the line to 
make it shorter, or break it into two new lines. 

Now repeat the procedure until your ASCII file can 
reload entirely without a DS Error. 

No, there isn't a SKIPF equivalent for data files. 
The only way to skip files is to open the file you want 
and wait for the tape to cue up to the proper spot 
on the tape. 



/ have been using a Color Computer for about two 
years, primarily for small-business accounting. A few 
months ago I upgraded my "E" board to Extended 
Basic and 32K. I used 64K chips but have not got- 
ten around to soldering the wire jumper yet. Since 
the upgrade, several intermittent problems have oc- 
curred and no one seems to be able to help me. 

When using the edit command in the insert mode, 
the cursor will occasionally hang up. It stays in one 
location, blinks, but doesn't respond to anything but 
the Reset button. This then requires that I retype near- 
ly the entire (sometimes lengthy and complicated) 
line. Is this a faulty chip or an incurable problem? 

My graphics functions operate sporadically. When 
trying the sample programs and exercises in the front 
of the Going Ahead with Extended Color Basic 
book I often get an irregular oval on each side of the 
first three demonstratioin squares, or else a checker- 
board pattern covers the top three-quarters of the 
graphics screen. Sometimes the same programs 
work fine. Can this problem be fixed? 

When using the Complete Personal Accountant 
package from Futurehouse, the cursor will occa- 
sionally disappear for twenty to thirty seconds. No 
data is lost, but I am concerned that someday it may 
never come back at all! This happens most frequently 
when entering a large number of checks but may 
happen when only a few checks have been entered. 
Is this a hardware or software problem? 

Also, I cannot find out how many variables can be 
built into a program. The blue sheet in my original 
owner's manual says "you can now have a full 255 
characters in data files without having to worry about 
losing any Information." Does this mean that I 
can have 255 single-character-named variables each 
with any numerical amount but only 127 double- 
character variables (x2) each of any value? If I 
dimension an array of variables (DIM x (20)) can I 
then include more than 255 variables? Or does 
"X(20))" copy five of the 255 allowed? 
Roy Hakala 
Red Wing, MN 

Sounds like you are having problems with your 
RAM. Get out your 32K conversion instructions and 
double-check that everything is wired correctly. And 
finish the job! Anything that's only partially com- 
pleted cannot be expected to perform correctly. 

If you are still experiencing problems after that, 
get the Radio Shack Diagnostic ROMpak and run 
a memory check. You might have a marginal RAM 
chip. If you still can't get it to work right, take the 
unit to the repair center and have them examine it. 

The time the cursor is gone is spent in "garbage 
collection." The computer is busy compacting data 
in RAM and deleting data no longer in use so that 
it will have more room for the current data. Don't 
worry about it. 

The reference in the blue sheet to variable length 
refers to the length of the data that may be crammed 
into any one variable. The only limit on the number 
of variables in your computer is the amount of room 
you have available. You can have two variables or 
500, Basic doesn't put a limit on the number, ex- 
cept that imposed by available RAM. If you have the 
RAM you can dimension an array of X(1000) if you 
want (or more if you have a small program). 
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The INTERACTIVE DRflUING. BOARD and GRAPHIC 
DISPLflV PROCESSOR will produce anting 
presentatiorr-quality graphics. To build 
a picture use the 'FACTION ICONS' Hith 
your House or joysticks. ACTION ICONS 

include lines, rectangles, circles? arcs 
and fills. Once an "object is created 
it can be copied and Moved or undone. 
Magnify Mode lets you 'Soom* in to do 
fine touch-up work. Brush Duplicate lets 
you 'air brush' any pattern. Cones with 
14 FONT sets Mhich can be enlarged or 

I toIJcMJFe^f or BDLD FONT! Large 
worksheet (448x480 pixel >! 

REQUIRES 64K DISK or TAPE 

2 JOYSTICKS or 1 HOUSE fc JDVSTK 
PRINTER OPTIDNS= rs LP UIII FORNfiT, 
C-ITDH <CNEC>, EPSON, GENINI 10-10X 

PLEASE SPECIF V *•% .* f"l fit"" 

DISK or TAPE $^Cj . ZJ\D 

(DEALER INQUIRIES INVITED) +*2 POSTAGE 



VIZIDUMP 

The screen dump utility that you've 
been waiting for! This does it all!. 
Ea.sy PULL DOWN MENUS. Black/white 
backrounds . Select any area of the 
graphics screen and print it! You 
can also enlarge print 2X or 4X. 
Select tabs, baud rates, X or Y axis 
PRINTER OPTIONS: RS LP VIII FORMATS 

C-ITOH, EPSON, GEMINI 10 or 1QX 
REQUIRES DISK DRIVE & JOYSTICK 

$19 m gS +$2 POSTAGE 
CDEALER INQUIRIES WELCOME} 



GRAPHICS! 



Turn your Color 



•GRAPHICS MACHINE' with some of 
newest and most innovative graphics 

software programs yet! 





VIDX- VIDEO DIGITIZER 

Vidx connects between the video source and the RS-232 port of 
the color computer. No need for Y-cables or Multipacks! When 
VIDX is connected to your computer, you can digitize any source of 
video such as off air TV, video tape recorder, or live TV camera 
simply by issuing the proper command from the keyboard. The 
software used with VIDX is supplied on a non-protected RS format 
disk. The software has the following functions: 

SINGLE OR MULTIPLE EXPOSURE 

ABORT or RESUME SCAN 

FRAME PICTURE 

LOGICAL 'AND' SCREEN 2 & 1 

READ/WRITE GRAPHICOM DISK 
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READ/WRITE RS-DOS DISK 
READ/WRITE TO CASSETTE 

vidx-i-$99.95digitizer & software 
vidx-2-$124.95 digitizer & software 

with two port RS-232 switcher, allows You to switch between VIDX 
and two other devices such as printer & modem. 

PLUS $3.00 POSTAGE 
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HAM SOFTWARE by John Yurek 
used worldwide by Hams 

CW - Turns your COCO into a CW 
keyboard and receive term- 
inal. COCO version has a 
real time printer. 
$44.95(tape) plus $2 postage 

RY - Turns your COCO into a 5 
level (Baudot Code) Tele- 
type machine. 

$49.95(tape) plus $2 postage 



To Place Your Order Send 
Check or Money Order To: 



GRAFX 



GRAF 

P.O. Box 254 

West Mifflin, Pa. 15122 

Voice (412^66-6974 (6-9 PM) 

24 Hour BBS-COCONET 

(412)744-2335 

300 - 1 200 Baud Modem Online 

FREE DIGITIZED PICTURES! 
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I collect throwaway stuff. Not just any throwaway stuff, but 
things I can get lots of. Like the centers of Scotch tape rolls. 
Or old typewriter correction ribbon spools. Magic Marker tops 
are great. Polaroid instant film batteries are terrific. I even 
have a crate full of IBM carbon ribbon shells from when I 
worked as a typist— every one has a wheel, two gears, a 
spring, and a few other doo-dads! All those things are kept 
in bags ... my module bags. When I needed hazardous 
waste containers to strap to a flatcar for my HO trains . . . 
there they were: Magic Marker modules! Perfect! 

That point of view follows with computer hardware and soft- 
ware. Modularity is one of my favorite approaches. I have 
small boxes of cassettes, each cassette containing an 
assembly language module identical to the rest in that box. 
I pick out the modules I require to assemble long programs. 

4 m UnderColor 



In the same way, I keep hardware modules around; many 
of the designs presented in my articles are modular, such 
as the CoCoPort and the clock/calendar. 

No one of the modules is particularly interesting by itself, 
but the whole result sometimes seems different from those 
mundane-looking parts. The software for the Data Gatherer 
follows that pattern, containing about a dozen modules. Each 
unremarkable module is almost self-sufficient, but in sum they 
make up an effective, elegant and easy-to-use operating 
system. 

The next two columns will present the complete listing for 
the Data Gatherer Operating System (DGOS), together with 
commentary, and a guide to using the software from Basic 
or assembly language. 
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Quick Look at the Software 

The Data Gatherer Operating System (DGOS) is entirely 
created in assembly language, and hooks into the Basic 
language of a 32K Extended Basic Color Computer. DGOS 
contains initialization (and re-initialization) routines, copyright 
display, a test for Basic program auto-boot, plus a number 
of modular segments: 

• Module 1— Analog-to-Digital Conversion 
1a. Opens one analog channel. 

1b. Converts one analog value to digital form. 
1c. Converts 16 analog values to digital form. 

• Module 2— Digital-to-Analog Conversion 
2. Converts one digital value to analog form. 

• Module 3— Real-Time Clock/Calendar Control 
3a. Displays the real-time clock/calendar (RTCC). 
3b. Reads and stores the RTCC. 

3c. Sets time and date in the RTCC. 

3d. Turns on continuous display of the RTCC. 

3e. Turns off continuous display of the RTCC. 

3f. Swaps to RTCC port addresses. 

3g. Swaps to disk port addresses. 

• Module 4— Parallel Printing 
4a. Parallel prints one character. 

4b. Parallel prints a string of characters. 
4c. Parallel prints the video display. 

• Module 5— D/A Conversion Alternate 

5. Converts a digital value to analog form (faster method). 

• Module 6— A/D Conversion Alternate 

6. Converts an analog value to digital form (faster method). 
(I have to admit that because these routines are modular, 

in the actual program they aren't in precisely the order shown 
above.) 

Listing 1 presents the first half of DGOS. Lines 200-470 
identify the memory locations DGOS will use for its opera- 
tion, and lines 520-720 are the addresses of each of the 
DGOS subroutine modules, permitting use of assembly 
language indirect subroutine jumps. This type of reference 
table allows updating and expansion of the operating system 
without grief and pain. (For a full discussion of the merits of 
operating system vectors, see "Op Sys SIG Discussion" in 
issue 5). 

Vanity 

Ever wonder how the disk pack performs an autostart when 
you plug it in, even if you cut loose the so-called "hard start" 
connection (pins 7 and 8)? If you back up one more step, how 
does Color Basic know when the Extended Color Basic ROM 
has been added to the system? 

Here's how. When you turn on the power, Color Basic goes 
through an initialization routine, setting up parameters, testing 
and reserving memory, and presenting you with a blank green 
screen. When Color Basic is finished, it examines memory 
locations $8000 and $8001 (decimal 32768 and 32769) for 
the values $45 and $58. These are the characters ex, for Ex- 
tended Basic. If Color Basic finds them, it jumps to Extended 
Basic at $8002, where a second initialization is performed. 
When Extended Basic is finished, it looks at locations $C000 
and $C001 (decimal 49152 and 49153) for values $44 and 
$4B. These are characters dk, for Disk Extended Basic. If 
Extended Basic finds them, it jumps to Disk Basic at $C002, 
where the third initialization is performed. Finally you get a 
sign-on message and the ok prompt. 



So I took advantage of this DK character search business 
to give DGOS its autostart . . . and, by using a little decep- 
tive assembly language coding, I was also able to indulge 
my vanity. Not only did I install the skimpy DK, but I installed 
a full dkitsz (Eds. Note: Groan!). When Extended Basic finds 
the DK and jumps to $C002, it tries to execute the remaining 
characters (I = $49, T = $54, S = $53 and Z = $5A) which repre- 
sent the unimportant command sequence ROLA, LSRB, 
COMB and DECB. That is followed by the real thing, a branch 
to the actual DGOS initialization (BRA IPL). 

The DGOS initialization (IPL, lines 740-830) informs the 
Basic language operating system that DGOS requires 128 
bytes for its use. It does so by changing the values in the 
"top of memory" pointer, which Basic uses in its clear com- 
mand; clear is prevented from using memory above $7F80 
(decimal 32640). It sets up the stack and observes the re- 
maining Basic set-up sequence. It then initializes DGOS itself. 

The DGOS initialization (lines 1200-1640) sets up clock 
registers and configures the four 8-bit ports of the Data 
Gatherer. These ports, found at $FF50-$FF5F, are opened, 
30 bits are set for output and two bits are set for input. The 
ports are then closed. A few important values are established 
immediately (D/A converter channel, high and low D/A con- 
verter strobes, printer mask byte, clock screen display, and 
screen starting location). 

The interrupt vector— necessary to provide a continuous 
clock display on the screen— is "chained" into place. The 
old vector is used for the sound command, and the clock 
display vector links itself into the chain of interrupt services. 
The clock registers are again set, the clock is set up for 
24-hour (military) time, and the clock is turned on. 

The initialization routine continues with a sign-on message 
for DGOS, and finally branches to a Basic auto-boot test 
routine (from line 830). That module is particularly useful by 
itself, without DGOS, and can auto-start any Basic program 
into Extended Basic. Next time I'll take a look at that pro- 
cess, which jumps to the Basic ROM at $80B8— the ok 
prompt— if no program is found. 

The first thing you see when you turn the power on, then, 
is the green screen, the usual pause during 32K memory 
testing, and the DGOS sign-on message, with real-time clock 
running in the upper right corner and the ok prompt in the 
upper left corner. 

Klock Kalendar Kludge 

Clocks and calendars may seem regular— all that repetitive 
ticking and such— but when it comes to programming, they're 
just a mess. Tenths of seconds are base 10, seconds and 
minutes are base 60, hours are base 24, weeks are base 7, 
months are base 1 2, days are base 365, and leap years are 
base 4 ... so to speak. Or so to program. 

You run into more of that confusion when the clock is ex- 
clusively software, but you can't get out of it even with a hard- 
ware real-time clock/calendar (RTCC) such as this. The 
ridiculous results are found in the display routine (lines 
2700-3210). 

After the screen display start position is identified the 
routine moves to the subroutine to read the MM58274 
clock/calendar (lines 3290-3450), which in turn moves to the 
swap-to-clock segment (lines 3500-3540). The swap is re- 
quired you remember, because the clock must share memory 
space with the disk. By writing 1 to address $FF58, the swap 
flip-flop accesses the clock, and then returns to GETCLK. 
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After storing the user's registers, the clock values are 
moved into a storage area pointed to by the Y register (lines 
3310-3390). A little peculiarity follows. Naturally, it takes some 
time to read the clock, even in assembly language. During 
this time the clock may have begun a change cycle. If that 
change is at the hour or the day, perhaps, the software will 
get half of the old time and half of the new time. The result 
will be a very wrong mixture of time value. 

A safeguard is provided, however; it is the "data changed" 
flag in the RTCC chip. If bit 3 of address in the clock is 
high, then the clock has been updated ... so the assembly 
language program has to re-read the clock for a correct value. 
Finally it can return to the display routine. 

The actual displaying picks up at line 2730, where X is 
pointed to the screen display position, saved, and re-pointed 
to the day-of-week value in the clock storage area. Y points 
to the table of weekdays, beginning with Sunday. The value 
is plucked from the table and displayed, one character at a 
time, followed by a space (lines 2820-2920). 

The numbers are then pulled from the clock storage area 
and displayed: the year, a space, the month, a slash, the date, 
a space, the hour, a colon, the minute, a colon, the second, 
a period, and the tenths of seconds. Each value (only four 
bits in size) is stripped of its excess bits and converted for 
VDG display. (The conversion is unusual because the VDG 
does not display characters according to their proper ASCII 
codes. For more on the VDG, refer to The Color Computer 
Magazine, August 1983). 

Finally, 166 bytes, 903 machine cycles or 1 .01 milliseconds 
later, the routine is ready to return to the program at hand. 
And remember of course, that when there is a continuous 
on-screen clock display, this is an interrupt service routine, 
adding a shade more time to the process. The overall result 
is about just under a 5 percent loss of computer speed. * 

Out the Converter 

The output of a 12-bit value through the digital-to-analog 
converter is quite fast, suitable for professional sounding 
single-voice music synthesis or high-speed lab or motor con- 
trol applications. The routine begins at line 2460. 

Recall that the AD667 D/A converter is versatile, capable 
of interfacing with 4-, 8-, 12- and 16-bit microcomputer 
systems. It does this by using three independent 4-bit latches 
preceding a master 12-bit output latch, in addition to a 4-bit 
control latch. Therefore, the 12-bit data and control word can 
be installed in many combinations: as four 4-bit nybbles, as 
two 8-bit bytes, or as a complete 16-bit word. 

The Color Computer is an 8-bit system. So at line 2480, 
8 bits are placed into the D/A converter, and the remaining 
four bits — plus four control bits— are stored in the converter 
at 2510. The strobe routine (2610) pulses the D/A converter 
to accept the data being made available to it; at lines 
2560-2570, those 12 bits are strobed through to the master 
latch and out the converter. 

This is a very orderly subroutine; by sacrificing some of 
that orderliness, a faster routine can be created (later for this). 

Cornering the Prey 

There are times when I realize I've got a lot more to learn 
as a programmer. Writing the subroutine to input an analog 
value through the Data Gatherer by successive approxima- 
tion brought that weakness into focus once again. In fact, only 
an intuitive sense tells me there must be an easier way. 
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Table 1. Output Arrangement 





Readers? Help! 

First, let me tell you what I did (clumsy but successful). The 
conversion routine begins at line 2030, where a loop is set 
up: X points to the location where the working offset will be 
stored, Y points to the location where the 12-bit "known" 
value will be stored, A accepts the count value and stores 
it, and D is established as the midpoint between low and high 
values (midway between and 4095). With these parameters 
in place, the successive approximation begins at line 21 10. 

The first value is output through the D/A converter, and 
the status of the comparator is read (COMPIN) and stored 
for reference (LASTIN). Remember that the unknown value 
is discovered by comparing it with a known value, which is 
what the hardware voltage comparator does. 

So, if the hardware voltage comparator reads 1 , then the 
unknown value is greater than the known value at the output 
of the D/A converter. If the comparator reads o, then the 
unknown is less than the known value. ROLA (rotate-left- 
accumulator, line 2150) forces the value of bit 7 into the carry 
flag. Based on the contents of the carry flag, the subroutine 
either adds half again to the known value (2270) or subtracts 
half again from the known value (2170). 

The count is decremented (2340) and the process repeated 
12 times until the known value homes in on the unknown 
value. Finally, depending on the final state of the carry flag, 
the result is adjusted for known = unknown, against known 
► unknown. The final value is stored, and also returned in 
the D register. 

What tells me there must be a better way? Something about 
the adding and subtracting tells me . . . there's just too much 
of it, and it feels clumsy. The pattern of bits in the known value 
seems very regular, but I can't put my finger on it. Do you 
see it? If so, let me know. Either a free Data Gatherer PC 
board or a free dinner in Roxbury, VT awaits the first person 
who can rewrite that routine using bit manipulation— and who 
can get a single conversion down to 1 mS or less! 

And the Rest 

The rest of the A/D conversion section involves turning on 
the channel to be converted, and converting all 16 channels. 

The channel selection routine is messy because of the 
nature of the analog multiplexer; Table 1 is the arrangement 
of output again. 
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The latest news on the Color Computer grapevine is that 
more and more people are discovering The Rainbow.® 



Now in its third year, The Rainbow has 
become the standard by which other 
Color Computer magazines are com- 
pared. And no wonder! The Rainbow 
towers above the crowd, now offering up 
to 300 pages each month, including as 
many as two dozen type-in-and-run pro- 
gram listings, a host of articles and in 
excess of 30 hardware and software prod- 
uct reviews. 

We lead the pack in Color Computer 
publications and are devoted exclusively 
to theTRS-80® Color, TDP-100 and Dragon- 
32. We made our climb to the top by con- 
tinually offering the best and the most by 



such well-known authors and innovators 
as Bob Albrecht and Don Inman, and 
games from top programmers like Robert 
Tyson, Fred Scerbo and John Fraysse. 
The Rainbow offers the most in enter- 
tainment and education, home uses, 
technical details and hardware projects, 
tutorials, utilities, graphics and special 
features like Rainbow Scoreboard and 
our CoCo Clubs section. 

For only $28* a year, you get the keys to 
all the secrets locked in your CoCo! 

Are you searching through the jungle 
of claims and clamor? Climb above it all. 
Look up. Find The Rainbow. 



THE RAINBOW 

(502) 228-4492 



YES! Sign me up for a year 
Name 



9529 U.S. Highway 42 
The Falsoft Bldg. 
P.O. Box 385 
Prospect, KY 40059 

'12 issues) of THE RAINBOW. 



Address 
City 



State 



ZIP 



Payment Enclosed □ 
Charge Visa □ MasterCard 

My Account# 

Signature 



□ American Express □ 



THE RAINBOW is a publication of Falsoft, Inc. 



"Subscriptions to the RAINBOW are $28 

($31 after Jan. 1, 1985) a year in the United 
States. Canadian rate $35 U.S. ($38 after 
Jan. 1 , 1985). Surface rate to other coun- 
tries $65 U.S. ($68 after Jan. 1, 1985); air 
rate$100U.S. ($103 after Jan. 1, 1985). All 
subscriptions begin with the current issue. 
Please allow up to 5-6 weeks for first copy. 
U.S. FUNDS only. 




VISA' 



In order to hold down non-editorial costs, we do not bil 



Card Expiration Date 

for subscriptions. 



Prices subject to change. 



DENNIS KITSZ 



Recall the Basic program used for testing the individual 
channel input? The Select column in the Table reveals where 
those mysterious looking data statements were derived from. 
Depending on the state of the X and Y select lines, the values 
of A and B determine which input are fed through the analog 
multiplexers. Notice that only one X or Y select line may be 
turned on at a time; the software must respect this or risk 
opening two input at once and feeding input into each other! 
(The initialization routine establishes channel 1 at power-up, 
just to be safe.) 

The channel routine (line 1810) gets the value from 
MXCHAN (1 to 16), puts it in the range to 15, and muscles 
it into the format shown above. Compare the adjusted chan- 
nel number (last column) with the value needed to select the 
hardware properly (next-to-last column). You can follow the 
sequence of logical shifts and additions that perform the 
rather tedious conversion (lines 1840-1980). 

Finally, the loop to select each of the 16 channels in turn 
is shown beginning at line 1660. This is a simple loop, stor- 
ing the channel value, and storing the 16 input values in a 
block of memory. 

Next time: Print routines, clock on and off routines, auto- 
boot Basic from ROM, and application ideas, (end) 
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INCXUS presents 



New Keys to Creativity! 



CHKOaUA-SSKETCH 

The Picture I'rofjrnm Writer 

CHROMA-SKETCH has an option that writes a BASIC 
program as you draw, paint and letter on the hi-res 
screen in 66 colors and shadings (22 in each 
of 3 color-sets). Save program to disk or tape to 
recreate your picture from BASIC at any time, or 
save the screen as a binary image. 

Dual cursors simplify arcs, circles, lines and boxes. 
Drawing aids include options for full-screen crosshair 
cursor and "graph-paper" grid. Automatic preview 
and undo commands available in 64K. Help key 
gives command and status display. If the program 
writer is enabled, you can return to any previous 
stage of your picture! 

Draw complex shapes and CHROMA-SKETCH will 
redraw, rotate, reduce or enlarge them at any position 
in any color or pattern. Save the shape definitions 
to disk or tape for use in BASIC programs. Paint 
in any dot pattern including checks, stripes (horizontal 
or vertical) or others you define yourself. Draw dotted 
or twisted lines. Overlay color patterns for translucent 
effects. 

CHROMA-SKETCH can be used with any combination 
of joystick devices including Touch-Pad or Color 
Mouse. If you prefer, you may use the fast, auto-repeat 
cursor keys to move diagonally, horizontally or vertically. 

The fast, compact graphic programs you can write 
using CHROMA-SKETCH are yours to alter or use 
in any way you wish. These BASIC programs may 
be used for games, graphic adventures, educational 
software or on-screen slide shows. 

Requires 32K Extended BASIC. Supports disk or 
cassette systems, all ROM versions, all graphic modes. 

CHROMA-SKETCH 

$29.95 cassette 

$34.95 disk 

FREE SHIPPING & HANDLING 



* WIZARD 

For Telewnter-64* 

"/ recommend Wizard for Telewriter devotees 
who want to do something nice for their hard- 
working word processor." 

Scott Norman 

Hot Coco, Feb. '85 
".../ can attest to the relief that innovation 
offers the eyes after long periods of key- 
boarding." "Wizard is another CoCo winner..." 

Charles Springer 
Rainbow, Dec. '84 

The pleasantly proportioned characters of the WIZARD 
font have true descenders and optional end-of-line 
markers. If you do not prefer this clear, attractive 
font, take advantage of our money back guarantee. 

The simple modification of Telewriter-64 done by 
WIZ causes no change in the operation of the word 
processor or the amount of buffer space. You may 
choose to permanently install the font in a backup 
copy of Telewriter-64 or to quickly install the font 
each time you load an unmodified copy of Telewriter-64. 

The end-of-line markers are useful for locating run-on 
spaces at the end of lines and between lines, and 
for counting spaces between paragraphs. They are 
essential for the complex on-screen formatting that 
tables or poetry often involve, as well as for keeping 
track of carriage returns in program cude. 

WIZ will run in any CoCo, 16-64K, disk or cassette. 

The WIZARD font does not alter the characters 
produced by your printer. 

Details of how the new font is added to Telewriter-64 
may be requested when you order WIZ. Previous 
purchasers may request this information if they include 
their WIZ ID# and a SASE. 



WIZ 

$ 1 6.95 cassette 

$2 1.95 disk 

FREE SHIPPING & HANDLING 



MONEY BACK GUARANTEE. If not completely satisfied, you may return the material within 30 days for a 
prompt refund. Specify the program and media desired. Programs supplied on disk and cassette are identical 
in all respects. Send check or money order. Personal checks — no delay. Next day shipping in most cases. 



NEXUS 

2601 Bridalwood Dr. No. 4 

Knoxville, TN 37917 



for additional information: (615) 522-1977. CIS 71575,1706 
Write for a catalog. Dealer inquiries are welcome. 
TN residents add 7% sales tax. 



Telewriter-64 is a trademark of Cognitec 



DENNIS KITSZ 



p 








>-, 






















































cu 






















01 








to 


00 


















































CJ 






















u u 








.i! 


01 












E 












B 






B 






















to 








B 














c o 











u 






CO 






CB 








o 




CB 




> 


to 


























c 




CO 














•rl 4J 
















l-l 






u 




(*• vO 


o 




cu u 




c 


hi 






















D. 




o 




hi 














01 O 01 CJ 


0) 








4J 






je 






60 




•o 




u < 


a 


3 M 




o 


60 


0) r^ 








CO 








4J 




01 


•l-l 


CO 


60 














o a o o) 


o 






M 


01 












o 




IB 




CU p 


B 


c o 




CJ 


o 




c ^ 








co 








cu 


c 


c 


4J 


4-1 r-l 

















c c > 


c 


0) 




01 


CO CO 




<t 






M 




01 


i—l 


cu 4J E cu 


3 


•r4 l-l 






u 




C U -o 








X 


hi 






CO 4J 


•rl 


o 


CB 


•rl CU 


hi 














11 C U 


01 


*a 




u 








CN 


^ 




a 




r-l 


01 


60 C O 4-1 


x> 


4J O. 






p. 




CB O C 










cu 




c cu 


c 






3 


x d 


a 














|J 1) u • 


hi 


o 






o 


l^ 






CO 










c 


CB -r-l U C 




r-l C 




CB 






J= » tB 








CO 


4-1 




•H 3 


O 01 


X 


u 


•rl 


d 
















ill gj 11 4J 


01 


s 






4J 






II 


• l-l 




60 




CO 


c 


U O U-l • r-l 


T3 


CU O 60 




l-l 4-1 


bt 




a 








•H 


tB 




Cfl rH 


E 


3 


01 3 


X 


4-1 cB 


60 














iu ku c 


U-l 










CN 






•o 




c 




1—1 


CO 


o a o 


c 


C CJ C 




0) -r-l 


c 




hi o 














60 CB 


4-1 01 


B 


> -l-l 


B 


3 j3 


d 














01 U 0) *H 


01 


^ 


o 


u 


4-1 






^ 




c 


•r-l 




01 


J= 


4J 01 O. 


CO 


C -r-l 




C 60 


•l-l 




hi o 








CO 




o 


10 > 


•H > 




O tB 


o 


CX CJ 


•rl 














rl to U 


l-l 


cj 


l-l 


4J 


c 


CO 




CJ 


o 


o 






c 


o 


co cu 3 




IB - r-l 




C -H 






O 4-1 U-l 01 








CO 


u 


» 




JO O 


3 


60 CJ 


d 


1— 1 














4-1 




o 


01 


CJ 


• l-l 


4-1 




o 






1—1 




c 




60 i-l CU 


cu 


J= O r-l 




CB TJ 


rH 




U-l CU 4-1 








rJ 





4-1 


o a 


B 


cu 


pa tB 




•h d 


1— 1 














C i-i C 0) 


c 


1—1 


N 




o 


•l-l 








X 


CB 




CO 


X 


O IB CO 60 


3 


CJ u to 




X --. 


CO 




CO P3 -r-l 










U-l 




E= 3 


r- 


rC 




II 


o 


tO 














•H tO T-i CJ 


•rl 


u 




01 


Cm J3 


o 


CJ 


^ 


CJ 


CJ 




.C 


4J 


4J l-l > CO 




CU CJ 




O 60 


o 




cu u-i ,o 












^ 4-4 


J-i c 




0) 4J 




a 


CJ 














e 






o 


l-l 










CJ 


o 






CJ 


•l-l 


O l-i 


to 


4J N 




o 






3 U-l o 


cu 


cu 


01 


•H 


cu 


J3 


a 


•rl -rl 




> -H 


Cd 


•r4 d 
















4J In 4-1 -X 


4J 


o 




3 


* 


c 




* 


CO 


1—1 


o 






s 


X -u CU o 


> 


x o 




a .-I 


o 




r-l O 4J C 


> 


hi 


hi 




> 




T3 B 


S 6£ 


OJ 


o 


> 


hi hi 


o 














3 O 3 


3 


u 




CO 




•H 


• -4 




x> 


CJ 


4J 




SO 




co C 4-1 




CU 4-1 4-1 




O cB 


4J 




tB C -i-l 


o 


o 


o 


c 


CB 


cu 


3 3 


cu 


3 


B o 


<; 


4-1 3 


4-1 














a. c cx 


a 


a 


< 


0) 




^i 


J2 




a 


c 


X 




1-1 


4-1 
V4 


4J O CO 

C 01 


cu 


c o 




d 

C CB 


M 




•r-l ^i 


B 


B 


B 


3 


CO 


■a 

• l-l 


CO Xl 


4-J Xi 

u 


o 

T3 


T3 

cu 


CO 


CO 4-1 


X 














73 4J T3 


T) 


CO 


4-1 


■J* 




CO 






CB 


l-l 


CJ 




4-1 


CO 


• r-l > 4J 4-1 


o 


4-i a 




l-l 


a 




4J hi 4J CO 


T3 








T3 


> 


• -a 


tfl T3 




CO T) 


+ 


T3 TJ 


CJ 














e cu d 


c 


* 


0) 


CO 




CO 


cu 




* 


3 


CO 




dJ 


4-4 


O IB 01 CU 


4-1 


0) u-i cB 




3 O 


IB 




01 4-1 3 CB 


c 








c 


•r-l 


• 3 


•u C 


U-l 


r-l Ci 




d d 


CO 














< CJ < 

* * * o 


< 


co 


CO 


s 




s 


C/l 




co 


H 


CO 




o 


CO 


fn en O O 


CO 


CJ h-l « 




H Q 


CO 




CJ CO e« S 


< 


• 


• 


• 


<: 


o 


• <: 


co < 


h-l 


Cd < 


CO 


< < 


CO 




CO 


c. o 


CJ 


td 


co 


■X 


* 


* 


■X 




* 


* 




* 


* 


■X 




* 


-X 


•X -X -X -X 


•X 


•X -X -X 




* -X 


■X 




•X -X -X -X 


■X 


•X 


■X 


•X 


■X 


•X 


•X -X 


•X -X 


■X 


•X -X 


•X 


•X * 


* 


•X 


* 


■X -X 


■X 


•X 


■X 


Oh 










in 






in 


































































































CN 










































H 


td 










CJ O H CO 


c_> 








+ 






+ 












z 


n ,j 




Z vo 




rJ H 






z 




























td 


E3 




o 






rJ O OS M 


u 


cj 




rrf 


irf 






a 


a 


SB 








ss 


erf <U 




«fi -> 




Z erf 






2 co 


















H 






-d- 




CO 


l-J 


H 


o 




o 


cl, -d- <: a 


> 


Cx, 




o 


O cj 




CJ 


p-l 


o 






o 


o > 


+ 


EC H 




z > 














cd 








h-l 


H 


Cd 


rrf U-l 




tx, 


< 


cj Z 


oo 




o 


en o H H 


H 


<c 




o 


o o 


o 


o 


< 


^ 








CJ 


H H 


+ 


cj X 




< z 






cj mo 










> 






o 


H 


X 


> 


CO Cx, 




Cx, 




O D 


o 




o 


Honn Z 


z 


3 




hH 


hJ <o- -en- ,J 


s 


►J 






■co- 




CO Cd 


X 


X Cd 




EC O 






X " < J > 










< 






<o- 


o 


Id 


< 


< Cx, 




o 




•co- o 


•co- X 


<o- 


D*cn h 


M 


CO 




o 


CJ 


""" 


""■ 


CJ 


co 


CJ 






-n- 




=fr X O X 




32 Z 




CJ CJ 






s < =k= 










CO 






=s= 


CJ 


z 


CO 


33 <o- 






* 


=S= CJ 






* 


x 




erf 


<: 






< 






Pi 


erf 










CO CO 














< co 


CO 


CO 


CO 


co 




2 


<: < 


< 




CO 


CO 
















p 


p p a < 


X 


C/l 


at. 


< 


<: a 


s 


< 


CO 


CO 


CO 




< 


<: 


X X erf J 


Q 


CJ Cd CO 




Orf Pi 


CO 




< o tn o 


rJ 


rJ 


ij 


■J 


CO 


Oi CJ 


CO CJ 


O- J < 


Q 


(O pa 


CO 


X 


>> 


<! < 


Q 


p 


CO 


H p H Cd 


H 


CO 


►J 


H 


Q Z 


H 


CO 


CO 


H 




a 


H 


a co co 3 


H 


W Z H 




CO CO 


H 




o cd cx, rs 


co 


co 


CO 


CO 


H 


CO 


CO Z 


Q Cd 


Cd 


CO pd 


a 


B5 H 


H 


o 


a 


a e-i 


p 


H 


3 


W J to J 


on 


hH 


u 


C/l 


,J< 


o 


C/l 


J 


►J 


erf 




►J 


CO 


i-l a, co a, 


co 


a ca ai 




CO CO 


erf 




i-J Q H -flj 


►J 


►J 


rJ 


►J 


CO 


►J 


►J M 


►J o 


CO 


i-J pa 


<! 


O CO 


od 


-J 


hH 


kJ CO 


hH 


CO 


CO 
































vO 








►J 






►J 




























H 






































VD 












< 






z 






















9-i 






erf 










































H 








> 






z 
















H 






M 






> 






































H 




X 








H 






<c 
















X 






H 






z 






































[d 




td 








Cd 






S= 
















td 






o 






o 




































■X 


CJ 




z 






■X 


o 




•X 


CJ 
















z 






o 




■X 


CJ 












o o o o 


o 


o 


o 


o 


o o 


o 


o 


o 


o 


o 


o 


o 


o 


o o o o 


o 


o o o 


o 


o o 


o 


o 


o o o o 


o 


o 


o 


o 


o 


o 


o o 


o o 


o 


o o 


o 


o o 


o o 


o 


o 


o o 


o 


o 


o 


o — i cn co 


-d- 


in 


vO 


is 


00 


OS 


o 




CN 


CO 


•* 


in 


VD 


r- 


CO OiOH 


CN 


CO <t u-i 


vO 


I-- 00 


OS 


o 


H N l«14 


u-i 


vO 


r— 


00 


Os 


o 


-H CN 


co -d- 


in 


vO is 


oo 


Os O 


r-i CN 


CO 


-d- 


u-i vo 


is 


oo 


Os 


in in in in 




in 


m 


in 


in in 


VD 


•■o 


so 


SO 


VO 


SO 


vO 


vO 


vo vo r~ r-. 


r-. 


r--- r — i — 


r» 


r-~ r-~ 


r~ 


oo 


oo oo oo oo 


oo 


oo 


00 


00 


00 


Os 


crv os 


CTN OS 


OS 


Os Os 


Os 


Ov o 


o o 


o 


o 


o o 


o 


o 


o 








































































CN CN 


CN 


CN 


CN CN 


CN 


CN 


CN 


o o o o 
■d- 

CN 

u o < o 


o 


o 


o 


o 


o o 


o 


o 


o 


o 


o 


o 


o 


o 


o o o o 


o 


o o o 


o 


o o 


o 


o 


o o o o 


o 


o 


o 


o 


o 


o 


o o 


o o 


o 


o o 


o 


o o 


o o 


o 


o 


o o 


o 


o 


o 


is 


IS 




o 


CX4 






Cx, 




in 








Cd 


CO 




Cd 










Cd 










CO 












CO 


-d- -d- 




<f 


CN 




o 






co o oo 


CT\ 


is 




-d- 


«* 






<f 


o 


o 








00 


Os 




00 










oo 










Os 












crv 


On u-i 




oo 


oo 


Os 


o 




o 


tx, -d- u, p 


tx, 






tl4 


Pu CJ 




Cx, 




CN 






o 


Cx, 


tx, o <; o 




Cx, CO 




CO U-l 






Cx, Os CO 










Cx, 








co 


< 


tx, 


Cx, Cx, 




tx, 


Cx, 


CJ Cx, 


oo -<)• 


o 


N O MO 


r- 


o 




to 


6u O 


o 


fa 


o 


o 






1—1 


("-. 


r^ ^h o — i 


oo 


r-. cx. 




O CN 






r-» 00 O 










r- 






o 


o 


Cx, 


is 


is Cx, 




rs 


is 
td 

oo 
o 


O rs 


o 


oo 


o 


P O P O 


Cx, 


is 


Cx, 


r>- 


vO -<t 


<: 


r- 


r-. 


r-- 


Os 




vO 


r-~ 


Cd -^ O u-i 


a 


< so Os 




Q Q 


CTi 




vO < Cx, <)• 


oo 


00 


oo 


oo 


r- 


o- 


-<)■ o 


vo <: 


^ 


00 o 


CO 


< rs 


Os 


td 


vO is 


CJ 


p 


CO 


fc U h " 


CO 


"-' 


-d- 


co 


CO 00 


00 


ca 


— ' 


^ 


CO 




oo 


CO 


oo n oo n 


Cd 


r~ cn co 




00 00 


CO 




pa <t -h cj 


in 


u-i 


in 


u-i 


Cx, 


-ct 


-* ■* 


CJ -* 


CN 


u-l CN 


Cx, 


Cx, Cx, 


CO 


00 


— ' 


oo co 


CJ 


td 


oo 


Id rH -d- r- 


CO 


Cd 


rH 


CM 


in oo 


<: 


CJ 


Cx, 


CN 


in 




vO 


00 


CO Cd O CN 


•* 


vO ON CO 




C_> Cd 


o 




h ^ m is 


O-i 


< 


CO 


CJ 


Q 


o 


r-l CN 


CO u-i 


vO 


00 Os 


co 


Cd rH 


-d- 


u-l 


oo 


CJ td 


rH 


-d- 


vO 


O P P p 


a 


Q 


w 


w 


W W 


H 


td 


u 


fe, 


[x, 




Cx, 


[x, 


b b OO 


o 


o o o 




o o 


















CN 


CN CN 


CN CN 


CN 


CN CN 


CN 


CN CO 


CO 


co 


co 


co co 


-d- -d- 


•vf 


o o o o 


o 


o 


o 


o 


o o 


o 


o 


o 


o 


o 




o 


o 
























































O CJ CJ O 


cj 


u 


cj 


o 


CJ 


CJ 


CJ 


CJ 


CJ 


CJ 


CJ 




o 


CJ 


CJ CJ CJ CJ 


o 


CJ CJ CJ 




CJ CJ 


CJ 




CJ CJ CJ CJ 


CJ 


CJ 


CJ 


CJ 


CJ 


CJ 


o o 


CJ CJ 


o 


CJ CJ 


CJ 


CJ CJ 


CJ 


CJ 


o 


CJ CJ 


CJ 


CJ 


CJ 


4J 

c c 




































c 














































In 


•H O 




s 














> 


















CO 


B 












































cu 


O 1 




CB 










c^> 




C! 
















hi 


o 


to 












































4-1 


CX 3 d 




u 








cu 


c 


cu 


o 
















C cu 


a 


hi 




















O CN 


vo 


-d- 








d 












d 


oo S 




60 








60 


l-l 


60 


o 
















CU 4J 




01 60 




















u-i U-l 


u-i 


u-i 








01 




01 


cu 


X 


cu 


•rl 


60 'rl O 




o 




V4 




CB 


3 


CB 


















CU CJ 


c 


a o 






to 












4J 


Cx, Cx, 


Cx, 


Cx, 








3 


cu 


o 


CJ 


CO 


CJ 


o 


CUT) 




u 




01 




CO 


4J 


CO 


CJ 
















U tB 


CU 


o u 




01 


hi 












3 


Cx. Cx, 


Px. 


fx, 










X 


d 


cu d 


10 


d 


a 


•rl 


01 


a 




4-1 




U) 


cu 


CO 


Q 
















CJ hi 


cu 


•v a. 




•a 


CU X 4J 












&.</>• -co- <o- 


■co- 








CO =*= 


o 


01 


X 0) 


B 


cu 




■U O CO 


60 






CJ 




cu 


u 


cu 


> 
















CO IB 


hi 






o 


u n rl 












4-1 








cu o 


CN 


<j- vO 


> 


u 


u 


O rl 




IH 


a 


hi 4J 0) 


cB 


60 




CO 




B 




B 


















.C 


o 


r-l 60 




B 


CO -H O 


cu 


o 


CN 


<J- 


vO 


3 


4-1 4-1 


4J 4J 


4J 


3 m 


u-i 


u-i in 




4J 


01 


rl CU 


4-1 


01 


cu 


to c 


CO 


c 




u 






01 





















O CJ 


CO 


r-i a 






•r-l "O a, 


3 


u-i 


u-i 


u-i 


u-i 


o 


3 3 


3 3 


3 


H Cx, 


Cx. 


Cx, Cx, 


rH CU 


to 


UH 


4-1 UH 


d 


UH 


0) 


4J 4J -rl 


CO 


•rl 




to 




U-l 


60 U-l 


4-1 
















4-1 




•r-l -r-l 




X 


O 60 




Cx. 


Cx, 


Cx, 


Cx, 




a. a 


a a 


cx 


IB Cx. 


tx. 


Cx, [x. 


* d 




01 


to cu 


•H 


01 


In 


0) C i-l 


01 






j: 




o 


cB 


o 




















4-1 


4-1 r-l 




CJ 


hi 01 o u 


IB 


Cx, 


Cx, 


Ex, 


Cx, 


to 


4J 4J 


4-1 4-1 


4-1 


></></> <o- <o- 


d 


X 


hi 


hi 


In 


hi 


o 


•r-l 


e 






u 


e^« 




•r-l 




l-l 
















• X 


!«; 


1—1 




o 


cu hi 4J <; 


> 


<n- <j> </> </> 


4-1 


3 3 


3 3 


3 








H CO 


60 




5= 


cx 




CO 


COO) 




CB 






o 


T3 


l-l 


T3 


h-l 
















U CU 


CU 


4-1 10 




1—1 


N O 












•r-l 


o o 


o o 


o 


4J 4J 


4J 


4J 4J 


01 Xi 


•r* 


d 


o c 




c 




01 CX, Q) 




CJ 




4J 


l-l 


c 


l-l 


c 


o 
















CB C 


3 


tO CJ 




CJ 


-!<! J<! 


4J 




4-1 


4J 


4J 


J3 








rl hi 


hi 


Ij u 


d cj 


X 


•rl 


rH -H 




•rl 


X 


01 rl 


d 






CO 


cu 


ai 


CO 


01 


CO 
















J3 




CU 






O CJ CJ O 


r-l 


hi 


hi 


hi 


hi 




CO CO 


CO CO 


to 


o o 


o 


o o 


d 








•H 




CJ 


r4 * X 


• ■-1 


o 




l-l 


N 




CJ 




< 
















o o 


o 


a. o 




o 


4-1 O IB -U 


o 


o 


o 


o 


o 




4-1 4-1 


4-1 4J 




a cx 


a 


a ex 


CO CU 


o 


4-1 


CJ 4-1 


X 


4-1 


o 


CJ 4J 


1-1 






•r4 


























4J 


4J 


CU 4-1 






r-n: JO 


a 


o. 


a 


a 


ar-i 


•r-l -r-l 


•rl -rl 


•rl 








X rl 


<! 


3 


<! -3 




3 


1— 1 


CO 


ex 






14-1 


4J 


o 


4-1 


o 


c 
















01 




hi 






<; o 4-1 












cfl 


ja -o 


Xi Xl 


-a 


01 cu 


cu 


cu cu 


CJ CB 


Q 


CX P O. vO 


CX 


CJ 


0) 




r* 






•H 


U) 


• 1-f 


CO 


•r-l 
















hi 0J 


01 


M 




a 


a c 


3 


c 


3 


a 


CI 










CO to 


to 


CO CO 


a 














J-l > 


•a 


o 














60 
















o > 


> 


T3 O 




CB 


4-1 4J IB -H 


CU 


cu 


0) 


0) 


cu 


4-1 


r-l r-l 


r-l X 


x 


o o 


o 


o o 


4-1 CU 


4-1 


T3 


4-1 -O 


4-1 


•3 


4-1 


0) o 


c 


CO 




01 


CO 


14-| 


CO 


U-l 


01 
















4-1 O 


o 


c to 




» 


0) 0) S o 


Ou 


a 


a 


a 


a 


cu 


1—1 1—1 


r-l -rl 


•r-l 


!-H r-l 




rH r-l 


CU In 


cu 


d 


oi d 


cu 


d 


cu 


CM 


<: 


CO 




u 


h-l 


l-l 


l-l 


M 


CO 
















CO ,S 


X 


< CO 




CO 


CO CO CO Cx, 


o 


o 


o 


o 


o 


CJ 


< < 


< CO 


CO 


CJ CJ 


CJ 


CJ CJ 


CJ CM 


CJ 


<! 


CJ < 


CJ 


< 


CJ 


* 


* 




* 


* 


* 


* 


* 


* 
















* -X 


•X 


•X -X 




•X 


■X -X -X -X 


■X 


•X 


•X 


•X 


■X 


•X 


•X -X 


■X -X 


■X 


•X * 


•X 


•X * 


■X -X 


•X 


-X 


•X * 


■X 


-X 


* 


H Z 












J 




■J 






















































z 




CO 


pa 






Os 


Crf O >* 


o 










CL, 




Cm 






H 




H 




H H 


H 






o 




CJ 


O O H 


























-5S 




erf 


erf 






o 


< Z - 


H 








o 


1-4 


a 


1— 1 




o 


M 


o 


r-l 


o 


X Cx, r-l O 


h-l 


o 




Cd 




Cm 


<f a, erf 


00 










Cx, 




Cx, 




CJ 






CJ 


H 


-d- H 


o 


rrf 


•d- 


HUO 


p 








o 


H 


o 


H 


CO 


Cd 


o 


<f 


O vO 


Cd CO O CN 


o 


-tf X 


C" 


a 




< 


tx, <; o 


CO 


X 


X 


X 


X 


tu 


X 


X co 


X 


co X 


X 


X X 


o CJ 


CO 


co 


CO CO 


CJ 


CO 


o 


M HvO 


1-1 






x_ 


</> 


3 


<J> 


a 




<o- 


a 


</> 


Q o> Z «> Q CO- Q 


<jy >t 




h-l 




s 


Cx, 3 cu 


<o- 










<o- 


X » 


-<n- 




</> - 






<o- x 


<o- 


M 


<o- O 


co- 




<o- 


tn w<n- 


> 








"^ 


o 


"^ 


o 


< 


"**■ 


>-J 


"^ 


■-) 


""" 


<-> =tt= <-> =Sfe 


l-> 


TV " •— 1 


*~* 


> 




CO 


<o- CO =S= 


* 


^ H 


CO 


m 


I-- 


-r^ 


- CN 


vO =S= 


-d- 


-rr i—l 


CO 


U-l IS 


* s 


-rr 


BC 


=fe hJ 


-n- 




"™" 


X >- 

>< < < 










< 




<: 






CO 




CO 




CO 


<: co 




<: x 


>H 






erf 


<; erf 
p2 <! co x 








































erf 


co 




< 


Dm 


O- p., 


cy erf 


Q 


O" P-, 


0*P4 


Cd Q <tj Pu 
Z Z Prf s 


Id 


a <: < 


<: 


<t! CO 

p3 h 




co 


<! 


< 


< 


< 


< 


< 


<! < 


< < 


< 


< < 


< 


<! < 


<: < 


< 


< 


<! < 


< 


< 


p 


p h td 


CO 


H 




Q 


s 


faj 


a 


Cd 


Cx, 


SB 


Cd 


X 


[d 


s 


z 


Q H td 


w 




CO 


rJ H CO O 


a 


H 


H 


H 


H 


o 


H H 


H CJ 


H 


a h 


H 


H H 


a h 


Q 


H 


a h 


p 


H 


p 


rJ rH rJ 


CO 


erf 




yj 


CJ 


CQ 


o 


CO 


H 


< 


CO 


CJ 


CO 


CJ 


co < oa cj 


CO 


<ira J 


►J 


CO Pi 




rJ 


CJ CO J rJ 


►J 


CO 


co 


CO 


co 


►J 


CO CO 


CO r3 


CO 


rJ CO 


CO 


CO CO 


rJ CO 


hH 


co 


►J co 


^} 


CO 


►J 


H 






































►4 




E-i 










































erf 








o 






















H 




H 




CU 




M 










































>H 








td 






















X 




M 




h-l 




z 










































cu 








a 






















Cd 




o 




H 




h-l 










































o 








l-l 






















z 




o 




o 




Id 










































•X o 






* 


> 






















•-J 




>-> 




o 


■X 


erf 










































o o o o 


o 


o 


o 


o 


o 


o 


o 


o 


o 


o 


o 


o 


o 


o 


o o o o 


o 


o o o 


o 


o o 


o 


o 


O O O o 


o 


o 


o 


o 


o 


o 


o o 


o o 


o 


o o 


o 


o o 


o o 


o 


o 


o o 


o 


o 


o 


o h cm n 


-d- 


in 


vo 


r~~ 


oo 


Oi 


o 




CN 


CO 


<t 


u-i 


vO 




COOVO H 


CN 


CO •* U-l 


vO 


r~- oo 


OS 


o 


— 1 CN co -d- 


u-\ 


vO 


r- 


00 


Os 


o 


r-l CN 


CO -* 


u-i 


vO is 


00 


Os O 


rH CN 


CO 


-d- 


u-i vO 




oo 


Os 


CTt OS Os OS 


CJ\ 


os 


Ol 


o\ 


o\ 


ex. 


o 


o 


o 


o 


o 


o 


o 


o 














CN 


CM CM CM N 


CN 


CN 


CN 


CN 


CN 


CO 


CO CO 


CO CO 


co 


CO CO 


CO 


co -d- 


-d- -d- 


-d- 


-d- 


-d- -d- 


-d- 


-d- 


-d- 


o o o o 


o 


o 


o 


o 


o 


o 








































































o o o o 

U~| 

w 

CO O 

<OK3 


o 


o 


o 


o 


o 


o 


o 


o 


o 


o 


o 


o 


o 


o 


o o o o 


o 


o o o 


o 


o o 


o 


o 


o o o o 


o 


o 


o 


o 


o 


o 


o o 


o o 


o 


o o 


o 


O o 


o o 


o 


o 


o o 


o 


o 


o 










































co 


O Cx, o 


























Cd 




tx, 


o 




<c 


Os 


oo 










































(J 


<f « m 


























00 




00 


Os 




<3M 


o 


fc poo 








<f 


o 


-d- 


o 


o 


Os 


o 


CN 


o 


Cd 


O-J d, vO O 


CN 


O -* —I 




vO 






Cx, -H Cx, 


00 




CO 


u-i 


IS 


Cx, 


-d- CN 


vO Cx, 


-d- 


CJ —I 


CO 


in is 


rH CX, 


CJ 


Cx, 


-d- cx. 


o 


Cx, 


-d- 


is oo < 
w 

CO 

O O — l 


o 






00 


o 


CN 


o 


CN 


oo 


Id 


^ H 


-tf 


o 


vO 


O CO O CN 


o 


-d- < o 


CN 


o 




o 


Cx, O Cx, 


CO 


o 


o 


o 


o 


Cx, 


00 o 


O CO 


o 


co o 


o 


o o 


O is 


co 


rs 


CO |s 


CJ 


|s 


o 


P 


CX\ 




VO 


( _, 


^ 


_, 


1 — 


(x, 


<!- 


r~ 


_, 


r~- 


r _ t 


vO <f O -H 


vO 


CO t-» o 




O 0"v 




r^ 


Cx, c-- r- cd 


vO 


r- 


,^ 


r-. 


^ 


vO 


r» is 


is vO 


is 


VO is 


is 


is |S 


vO is 


vO 


is 


vO Is 


vO 


r^ 


o 


r-i co co 


oo 


co 




< 


oo 


CN 


oo 


CM 


^ 


CJ 


CN 


CJ 


CN 


CJ 


CN 00 CN O 


CN 


oo <: co 


CO 


CN CO 




^ 


-* CO — i 00 


oo 


<: 


< 


<: 


< 


00 


< < 


<; oo 


< 


oo < 


< 


< < 


00 CO 


00 


pa 


00 CO 


00 


pa 


CJ 


—1 U-l OM 


cj 


w 




tu 


^H 


rn 


in 


r^ 


CTi 


CO 


o 


Cx, 


_, 


rn 


u-i r— o~i co 


a 


fc, ^h ro 


u-l 


r» os 




<! 


Q Cd — i -* 


r- 


OS 


co 


a 


Cx, 


r-l 


CO u-l 


is CT\ 


PQ 


a tx, 


rH 


co in 


IS OM 


CJ 


td 


rH CO 


vO 


oo 


PQ 


in in in 


in 


in 




in 


vo 


vO 


vD 


v£) 


vO 


vO 


<£> 


vD 


r- 


r~ 


r~- r-~ I—- i — - 


r-- 


r-. oo oo 


00 


co oo 




oo 


00 00 OS Os 


Ov 


Os 


OS 


OS 


Os 


<; 


< < 


<c <c 


< 


< < 


CO 


co pa 


CO CO 


CO 


CO 


CJ CJ 


o 


CJ 


o 


o o o 


o 


o 




o 


o 


o 


o 


o 


o 


o 


o 


o 


o 


o 


o o o o 


o 


o o o 


o 


o o 




o 


O O O o 


o 


o 


o 


o 


o 


o 


o o 


o o 


o 


o o 


o 


o o 


O O 


o 


o 


o o 


o 


o 


o 


o o cj 


o 


u 




c_> 


CJ 


CJ 


CJ 


CJ 


CJ 


CJ 


CJ 


CJ 


o 


u 


CJ CJ CJ CJ 


CJ 


CJ CJ CJ 


CJ 


CJ CJ 




CJ 


CJ CJ CJ CJ 


o 


CJ 


CJ 


CJ 


CJ 


CJ 


CJ CJ 


CJ CJ 


CJ 


CJ CJ 


o 


CJ CJ 


CJ CJ 


CJ 


CJ 


CJ CJ 


CJ 


CJ 


CJ 



10 • UnderColor 



DENNIS KITSZ 



^ B 
cfl cu 

.-i e 



co o co co cw H 



i—i co 

3H II 

10J1 3 

III « i-l 

U 4J CO 

> 

►J CO ^ 



O D. l-i CO 



T3 C W T3 



W l-l H 

OHM 

o e> 

O C/J 

4J <J 4-1 



M O CJ X O X * IjQJMUcU 



CO O £ U CO 4J 

co C C 

U U CO • i-l 73 • i-l 

CO CU 4J O C O 



U M X! 
CO O 4J 
O. C/j 

< 



CO U i-l O l-l 



CU I-l 



* a) 



CJ O CO CU <i Cu O Pu ro co erf Q 



D. l-i co D. O 
co -.-I J3 co 0) 

•H U-l CJ -i-l CO 



CU 0) CO CO 

3 O 1) > 



CO >-. W 

l-i O. co O 

a) to i-i 

4-i a o 

O O CO 4J 

co a •h 

Vj > T3 4J 






CO 



i-l i-l 4-1 CJ 



CJ -i-l 4J CJ <U C O 



X 


a 


a. 




a. 


a. J2 




a 


a 


u 


o 


•H 


C1> 


CO 


CO 




CO 


CO CO 




CO 


CO 


QJ 


CO 


T> 


c 


• 1-1 


• 1-1 


ai 


•H 


• i-l CO 


J= 


•H 


•rl 


X 


M 


C 




X) 


T) 


o 


•rt 


T3 i-l 


CO 


T3 


■o 


4J 


CO 


• ■-1 


n 






cfl 




CO 


cfl 






o 


x: 




4J 






a 












c 


u 


s 




Ai 


.M 


CO 


Ai 


.*! CJ 


CO 


^ 


A! 


CO 




CU 


a 


CO 


CO 




CO 


CO Q 




CO 


CO 








Fl 


CO 


CO 


U 


CO 


CO > 


>, 


cfl 


cO 


>, 


X 


3 


3 


H 


B 


OJ 


H 





CO 


B 


E 


cfl 


CU 


XI 






X2 




CO 


1—1 






■—I 












4J 






a 






a 




Ai 




4J 


4-1 


n 


4-1 


4-1 4J 


CO 




4-1 


CO 


4-1 


CO 


c 


CI) 


CU 


C 


a) 


CU CU 


•r-l 


CU 


CU 


•H 


CU 


CO 


< 


CJ 


O 


<: 


cj 


e> o 


Q 


O 


e> 


« 


e> 


X 



as a 



co 



■-I H T3 



co 

i—l CO 
O.- 



O.i— I m a d. o 

CO O. CU CO CO -i-l 4J 
— I -i-l -H -H CO JC -i-l -i-l 1J •■"! -H CU 'rt 

CJ ^ T] -fl 4J 'O -O 01 -Oi— li— I 

q >, c >, o o a >-. i-i i-i 

> cfl - O cfl ~ C - - cfl - cfl cfl 

,-iAi^-iHAiA! HI Ji! Ji UH Ji O CJ 

l-l D. CO O D. CO CO CO CO Q Qu CO 

OcocflOcoiflcfl>-,cfltfl>cflcflajO 
i4_i >r< B -HBBcoBB T-I0P4J 

T3 cfl Tj i—l CO T3 O 

X - ., „ o. - - -4JA! 

OT) U U T) U U C04-14J4JT34J CO O 
COCCUCUCCUCU-HIUCUCUCiCUtUCO 

z;<!oo-<:ooQooo<;oBSBa 



M i-l >-. 

U XI CO 

O XI i-l 

.-i >, a 



g js -a co c 



U-l X O CU 



.-I o o >, o 





• •-I 


a; 


a. a! 


4J 


V4 


CO 


CO CJ 


<U 


4J 


CO 


• i-l CO 


O 


1/1 


X 


Q 03 



****** 



*********** 



********************************** 



O 5k! CO 

H ►" X J >< 

W - - O < X 

o x a x =*s= a - 



x«h - ca 



O hrf irf hrf Jsrf ferf fa s»i X cno x <: XX X X W X 

4 + ><>j + >i>i+vO + iJ>-iOO + OU\0 + UU++Or~ + Or~ + 00 + OOvO + 0>« 
„ X - « X - - X <0- X O «MMXMI-l<0-Xl-IMXfH«>«>XM«-XMI-lXl-ll-l2>-XM» 

-- - i i-^ -J .J - « =Sfc =fe ~ ,J =fe -J iJ - J _3 =#= -tJX 



Q OS EC orf 33 
Q CO CO fa CO 

►j 03 cu h cu 



<U« JiJ<i< 



Q W Q W Q 

j j i-a q J 






OiJJlDJJOIJJinJBl 



-I J J -J J 



>< <; <; <*> 

><<!crfi^coc3dc^<<i^i^io<Qa<oi«(at^a;iaa-C!3-<<cdJcn 

---,»,«L J ,«. n ni Jffll ()^o2pp[/]Q^(/nnuini/ioHoiOH 
innMj<;<;wiojrapQiow(oojcoiaHBi 



***** 



+ o r- + 



<! <! 

<! Q Q < co 

Q Z O H H 

►J < < co erf 



oooooooooooooooooooooooooooooooooooooooooooooooooooooooooo 

Srn^invortco»o^cNcn^invor^coa.o.-HCNcn^in>or^co<*o^c^ 

r^. r — r-- r^- i — r^i — r^ooooooooaoooooooooooc^ONC^c^c^ONONONCjNO%oooo 



wOOOOOHhhhhhhhhhNNNNNNNNNN 



oooooooooo 



oooooooooooo 



u 



^^.-^.-w'--lC^Ol^QQ^^QQ | ^^^W^D^ ^ ~~D0 ^> ~c ac:lv0r ~~ l:3u ~' CT, 
<ico<;oW'-incooowoQooco<!ooco[i]<:oooo<MOii]oocoiiJcooooo<cocnn 



cj (ii r-i en m r- <; 



cM<t^oco<;owoN-** 

HHHHHHHCMNCMN 

,__^-,„^„^^^ _^^ NCMNCNNCNNNNNNCMCMNNCNNCMNCM 



v „ ^„„.-lin>}iO00<lUHON'*lO004OON'*vC00<IUUON-J>OIB<UU 



r-~ CJ\ CQ Q ft, 

CM CJ CM CN CN 

cm CM CM CM CM 

U CJ U O CJ 



J3 >* CJ 

xi t> <; 

>-, co o 



<u o -^ <; 



^ u a x! x i-i 



O H 3 



4J CJ 

3 <! 
O O 



CJ O XI Cfl 



x: D. 1) cfl 60 



COCXI-i-IOOl-iMC 



CJ O X! CU -i-l 



E 4j co o 4J 

IJ CO CO -i-l 

4J <u x: xi 



l-i CO cfl CO 

CU XI CJ CJ 



H 4J CQ 



,— I4J4J3I-ICUO cfl 

O 4J |_| 4J O 



cfl O. >-, o co O 

T3 4J 

l-l4-IT3Cfl4JT3C0O 



ID 


XI 






X! 


- 


XI 


60 


QJ 


» 


M 


u 


o 


• i-l 


XI 


o 


•H 


CO 


u 


Xi 


O 




X! 


1—1 


4-1 




l-i 






1—1 


CO 


CJ 


4J 


C3 


CJ 


cfl 




< 


CO 


<fi 


<i 


o 


x; 


a 




a 


Q 




M 




» 






CU 


•H 


in 


O 


0) 


a) 


l-l 


x: 


XI 


■- 1 


XI 


XI 


o 



>4J|-l4J|-lt-ICOCJ 



> Cd 

* * 



<OiCLia!OXMS<;Hi-lOZ 
************* 



.o cj02:>wo3comoz 
************ 



Cfl(U4-l(U4J4JCUcg 



4J > -H 4J 4J 13 . 

C0C0O3CUC4JCUCCU3CC0C0 .. _ . _ . _. 

OcoCMpMCO<Ccoco<;cdPu<cdBa oimnooiwosia 

************** ******** 



EC O CM H 

hJ CJ 2 co 

!m < <3 O < 

•>> O O J 



<: 

q q ai < <; J CJ 

H H CO Q H O CJ 

co co cq ,j co ni ta 



X><X>iOOOX 



<; to 

pi oi a 

CO O H 

hJ cd co 



QEDHWZDiQCO 
JCOCOQpacQ,-J^J 



O 













z 


l—l 


H 




H 












E3 


< 


CO 




M 




X 


>< 


X 


>< 


CI 


CO 


< 




X 












CJ 


< 


h-J 




w 


CQ 






Q 










< 




erf 


Q 


a 


a 


« 


U 


III 


< 


h-4 


CO 


fi 


H 


a 


o 


H 


W 


z 


a 


o 


CJ 


erf 


CO 


-i 


< 


Ci 


O 


03 


►J 


erf 


PQ 



Cd O O O fc O 

O BXl>!hXM«iOi 

CUX«> -H"> -co- -H 

X =4*= -=fe cm co =#= cm =44= CM co 



q o a co a oo 
a a h h q h 
j <; co ce; j erf 



cd<;<!a<;cciJco 

oll^HZHo)3H 

JCwhJCOOCOCQOCO<;c003CUCC! 



a co a h 



CQ CO X CO X X 03 

- M - O - - - 

< EC -h _J ^H ^H <3 



•< 03 CQ <! .J 
H Q H H S 
co i-J CO CO CM 



W 



* a 



* co 



oooooooooooooooooooooooooooooooooooooooooooooo 

vo^ooc^Or^Nn•Jln^o^oo^o^^ln^ln^o^oocIlOHC^ln•^lnvo^a)c^OHNn•Jlnvo^■M<^o 



oooooooo 

^^ ^- »■, »■ i -,^,,-^,w.^^--.-..^i-.— ■ — ■ ..-,.. ^ - ._ . _- _ --.- . _ . - . _ cMc*-i<t-m>^3i--oocr. 

cm cncmcm cmcmcm NNNnconnnn nnnn^vf^<f4-t^^<f<f^inin^^inininin^^ ovovo^ovo 

NNNNNNNNNNNWNNNNNNCVIMNNNMNNNNNNNNNNNNM .-._._._. . ~. ~. ~. ~. ~. ~ ~ ~ 

oooooooooooooooooooooooooooooooooo 



VO -* CM 

oo m o\ 

<f b W [ti fa ro -* 

<! r~- n fa r-. -h oo 



w.^vmw..^, m-.ww-,~-..-.~^w u -, — w-.^ , ..._.-_ „„_ BHt<li£)00<Uli]OCM^vOCO< 59222^22 

^^<finiriiriin^ininintA^*ovo\D\OvOvo*oi — i^r^r^r^NNOococooocococooo coo^o>o>o\o>a\ON<!<<<!<;< <<cQffliflP3caw 



0>03WOCOvOI^-ONB3CJQtu— itOKl(»<UUbON4MICO|llDOHninilO><nQ 

<t*J^ininiAininiriininiAv£HD*ovOvo*ovOvoi — NNi^r^NNoococooocococooo 

CJCJCJCJCJCJOCJCJCJOCJCJCJCJCJCJCJCJCJCJCJCJCJCJCJCJCJCJCJCJCJOOCJ 



CJOOOCJCJCJCJCJCJCJCJCJCJ 



oooooooo 



March 22, 1985 • 1 1 



DENNIS KITSZ 
































































od 


















c 


























CO 










00 
CO 

U-l 
















co 










c— 




M 




•rl 








cu 














CO 


10 


u 






4-1 






























CO 




CO 




CO 




B 




13 


a 




a 


B 






u 


CO 


cu 




r-l 


c 




•o 




c 






B 






<4-l 










l-l 








M 




CO 




o 


o 




o 


CO 






CU 


cu 


4-1 




CU 


3 




CU 






Uj 


CU 


CO 




CO 












HI 


4-1 


14-1 




CO 




u 




s 








u 






4-J 


U 


CO 




4-1 


O 




00 




CO 


uj 


XI 


Ij 


to 


0) 














K 










00 






U-l 




M-l 


00 




14-1 


CO 


T3 


•H 




CO 


CJ 




c 




OO 


3 


O 


00 


Ij 


4-1 U 


T3 


U] 








10 


CU 






O 




o 




.* 




cu 


1 


o 




U-l 


•r-l 


T3 


00 


CU 


•i-l 






CO 




CO 


4-1 


6 


O 


01 


U- CO 


a 


ij 


l-l 


CU 




• l-l 


c 


TJ 


4-J 


•o 




u 




CO 


a 


13 


a < 


l-l 


CU 


3 


00 


CO 


CU 


3 


00 


u 




.C 


j-i 




CO 




U 


4-1 


O 


00 


uj 


cu 


i—l 




00 




CU 


•H 


U-l 


cu 


a. 




•H 


•H 


o 


• l-l 


a 


T3 


4-1 


CU 




l-l 




cu 


cu 




CJ 


•rJ 


4-1 




X 


a 


in 


P. CU 


C 


4J 


u 


XI 


CU 


CU 


4-1 


oo ja 


> 14-1 


•a 






T3 


^ < 


B 


i—l 10 




O 


CO 


U 


00 




CO 


u 


4-1 






ja 


•r-l 


CO 


CO 




•1-1 


60 


CO 


CO 


CO 


J3 


00 


IJ 


CU 


C 




T3 3 


o 


00 


<: 




iw 




U-l - 


00 


B 






C 


^ 


> 




CO 


X 


CO 








•H 


00 


00 M rO 


X 


•H 


• l-l 


^ 


co 




60 


CO 




CU 4-J 


B 


c 






CO 


M 


u 


c 




CO 


X 


• r-l 


CJ 




M 


•r-l 


CU 


4-1 




o 


rJ 


X) 


c 


CU 


O Ij 


cj 


00 


00 


C 


u 


1—1 




Xi 




00 CO 




•■-1 


CO 


O 


a- 


o 


a cu 


•H 


X 




CJ 


J-l 


o 


S 


CJ 


00 


d 


CO 




XI 


CU 




•rJ 


u 


O O 




1) 


cu 




o 




e 


o 


O 


c 


X 


i—i 




u 


CO l-l 


o 


co i—i 




CJ 


l-l 


o 


4-J 


1—1 


cu 


o 


cu 




TJ 


CJ 






o 






i— 1 4-1 


co 


Ij 


u 


& 


4J 


n) 


a 






CO CU 


CO 




u 


cu 


* cu 


1—1 


* r-l 


i—l 


O 


cu 




CU 


o 


c 


r-l 


r-l 


M 










J-l 




<u 


CJ 01 


4J 






O 


CO 




.£ 


CO 


T3 


X X. 


•H 


CO 


m 


N 


CO i-l 


CJ 


CO CO 


CO 


r-l 


1—1 


CJ 


CO 






CJ 




O 




y 


XI 


CO 




CO 


s 




CO 


CM 


4= 






XI 


4-1 


4-1 




O 4J 


-a 


CJ 






1—1 




CJ 


CJ 


o 








U-l 


4-1 






U-4 


73 




cu 


CJ 


J»i 


CJ 


o 


o o 


XI 


o 


4-1 




o 


4-1 




CO 












O 


C CO 




C 






CO 


o 


o 


o 


CO 


o 


c 




CO 




00 




CJ 




CO 


4J 4-1 






w 


c 


4-1 


•H 




■o 


C 


CO cu 


o 


o 


co 




•H <J 




•r-l CU 


o 


o 


a 




J-l 




IJ 


4-1 


cu 


^ 


CU 


c 


c 


CU 


CO 


o 








kJ 


o 


•H 


c 


» 


4-1 




•H 


4J l-l 


4-1 


4-1 


CJ 






II 


l-l 


4J 


4J 








l-l 


•r4 


c 


E 


u 


l-i 


•r-l 


CO 


|J 


.O 


J-J 


4= 


4J 4-1 


JJ 


<D 


■co- 




•H 




O 






CO o 








< 


CU CU 


< 


cu o 






cu 


4-1 


4J 


cu 


Uj 


•H 


cu 


CO 






.C 


o 






0) 


a c 


<U 


.O 




M 




CU 


a 


T3 


M 


T3 4-1 


O.X. 


cu 




u u 




l-l 4-1 


X. 


a 


M 


c 


C 


ja 






IJ 


XJ 


CU 


r* 


CJ 


J-l 


a ^ 


CO 


•H -i-l 


CO 


a 


4-1 


CO 


4J 


c 




CO 


CO 


CO 


CO 


a 


> 


4J 


o o 


4J 


CO 


a 


CO 


O 


•r-l 


•r-l 


E 


J-l 


4J 


o 




CO 


CO 




CO 


CO 


a 




o o 


ai 


3 


0) 


CO 


3 


o 


U-l 


CU 


CO 


UJ CU 


» 


co 


CO 


CU 


4J 4J 


cu 


4J CU 


co 


St 


4-1 


o 


O 


3 


cu 


3 


CU 


o 


i—l 


CO 


Uj 


CU 


S 


CO 


co 


Pj PM 


PS 


Z 


a 


ac 


Pj 


Q 


M 


« 


S 


i-i pi 


CAI 


pa 


CO 


co 


co co 


CJ 


CO PS 


pq 


co 


CO 


Pj 


P-I 


Z 


o 


Pi 


Q 


o 


w 


X 


l-J 


OS 


CO 


pa 


* 


* * 

> 

x <: 


* 


* 


* 


* 


* 


* 


* 


* 


* 


* * 


* 


* 


* 


* 


* * 


* 


* * 


* 


* 


* 


* 


PS 


* 


* 


* 


* 


* 


* 


* 


* 


* 


■it 


* 


o 


CJ CO 














CM 






-1 p 


a 








X 




00 




CJ 


o 


CJ 


H 










<f 






CO 


o 


Q 






o x 




w 




fa 






o 




00 


o •> 


P-. 








PM 




in 




pi 




O 


co 


Cd 








o 




oo 


O 




Pj 




>J 


J rJ 




o 


X 


o 


+ 




Q 




o 


a >• 


<: 








<! 


o 


fa 




<: 


>- 


►J 


dS 


O 


+ 


X 




a 




o 


Q 


>j" 


<: 






cj cj 


X 


•co- 




<o- 


>J 




W 


X 


</5- 


w - 


s 








s 


<o- 


fa 




3 




CJ 


H 


</> 


>• 






w 


X 


o> 


Cd 




3 




X 


-rr- -^ 




-n- 


pa 


-rr- 






os 




"*■" 


04 X 


CO 




<! 




co <! 


* 


</> < 




CO 


X 




CO 


* 




oa 




OS 




=»= 


PS 


X 


CO 




co 










< 




pa 






< 


C/J 






CO 


pi 


CO 




CO 






co 












CQ 






<: 




CO 






ac 


x >j 


< 


CQ 


< 


Q 


< 


cj 


Id 


<: 


Q 


W J 


cd 


CO 


33 


*t. re 

P3 CO 


<! 


<:. j 


CO 


PS 


K 


X 


>i 


pa 


< 


< 


O 


Cd 


< 


o 


W 


►J 


OS 


CO 


en 


a o 


a 


Q 


a 


Z 


H 


w 


z 


Q 


Z 


Z 3 


CO 


H 


CO 


►J 


Q 


H 3 


H 


co 


CO 


Q 


a 


a 


Q 


H 


W 


z 


Q 


z 


z 


3 


co 


E-J 


ix 


o 

Q 
W 

OS 


rJ 


►J 


CM 

o 

Q 
Id 

PS 


< 


en 


Q 


pq 


•J 


< 


pa Pj 


pa 


OCi 

* 


P-I 

Q 
P-, 
< 

CO 


CJ 


pa p-i 

CJ 

P-I 
<: 

3 
co 


J 


CO P-i 

X 

p« 
<: 

CO 


* 


to 

H 
W 
CO 

CJ 


P-I 


•J 

CO 

O 

a 
w 
on 


►j 


►J 


►J 

o- 

O 
Q 
Cd 
PS 


CO 


a 


pa 


►J 


<! 


na 


a, 


oa 


OS 
* 


o 


o o 


o 


O 


o 


O 


o 


O 


o 


o 


o 


o o 


o 


o o 


o 


o 


o o 


o 


o o 


o o 


o 


o 


o 


o 


o 


o 


o 


o 


o 


o 


o 


o 


o 


o 


o o 


o 


.— I CM 


co 


~d" 


in 


vO 


r-~ 


00 


CTi 


o 




CN CO 


-* 


in vo 


r- 


00 


Os o 




CN CO 


~d- m 


vO 


r-~ 


00 


CTi 


o 




CM 


CO 


-d- 


m 


M3 


i — 


oo 


o\ 


O —I 


CO 


co co 


co 


co 


CO 


CO 


CO 


co 


CO 


-* 


<f 


-d- <!• 


•<t 


<f o- 


-* 


<f 


-d- in 


m 


in m 


in m 


m 


in 


in 


in 


VD 


vO 


M3 


VJ3 


vO 


vO 


\0 


vO 


vC 


vO 


r- r^ 


CO 


co co 


en 


co 


co 


CO 


CO 


co 


co 


CO 


CO 


co co 


CO 


CO CO 


CO 


co 


CO CO 


CO 


CO CO 


CO CO 


CO 


co 


CO 


CO 


CO 


CO 


CO 


CO 


CO 


CO 


CO 


CO 


CO 


co 


CO CO 


o 


o o 

o to 
-d- cq 


o 


o 


o 


O 


o 


o 


o 


o 


o 


o o 


o 


o o 


o 


o 


o o 


o 


o o 

00 

m 


o o 


o 


o 


o 

o 
-d- 


o 

oo 
oo 


o 


O 


O 


o 


o 


o 


o 


o 


o 


o 


o o 


vO 


fa fa 


-<t 


u 


in 


fa 


o 




r-~. 


•<)• 


00 


\0 \D 






CN 




<f CM 




fa CM 




<)• 


VD 


fa 


fa 


w 


O 


in 




a\ 


-d- 


oo 


< 


v£> 


CO 




co 


fa r-~ 

w 

00 


00 


o 


oo 


o 


< 




fa 


oo 


o 


W CO 


o 




O 




o o 


o 


fa o 




fa 


CO 


fa 


W 

oa 


o 


< 


oo 




fa 


oo 


o 


Id 


CO 


o 




^t 


w o 


VD 


M3 


v£> 


<f 


r-. 


< 


VO 


V40 


<t 


vO in 


Q 


o\ 


-* 


fa 


O -4t 


vO 


r-^ in 


o\ 


o 


-* 


w 


o 


vO 


vO 


r- 


< 


vD 


VJ3 


-d- 


vO 


in 


Q 


CTi 


ro 


00 — 1 


< 


CJ 


< 


00 


< 


m 


CM 


«c 


oo 


CM CO 


oo 


co 


CO 


o- 


CM CO 


oo 


pa co 


CO 


oo 


CO 


00 


^ 


CJ 


< 


<: 


m 


CM 


< 


00 


CM 


CO 


00 


CO 


CN 


<f r- 


pa 


Q 


fa 


^ 


CO 


m 


M3 


00 


< 


CJ w 


o 


CN 


CO 


in 


vO 00 


< 


CJ fa 


^H 


CN 


<f 


vO 


o^ 


Q 


fa 


^H 


CO 


-d- 


O 


oo 


< 


CJ 


w 


o 


co 


co co 


co 


CO 


co 


-* 


o- 


<t 


<f 


-d- 


-d- 


<)• •* 


m 


m 


in 


in 


in m 


in 


in in 


vO 


O 


VD 


1J3 


vO 


vO 


MO 


r- 




r- 


r-» 


r^ 


1 — 




l-~- 


oo 


CM 


CM CM 


CM 


CN 


CN 


CM 


CM 


CM 


CM 


CM 


CN 


CN CN 


CN 


CN 


CN 


CM 


CM CM 


CN 


CM CM 


CN 


CN 


CN 


CN 


CN 


CN 


CN 


CN 


CM 


CN 


CM 


CM 


CM 


CN 


"CM 


CM 


CJ 


u o 


cj 


CJ 


cj 


CJ 


CJ 


O 


CJ 


r_> 


CJ 


CJ CJ 


CJ 


CJ 


CJ 


CJ 


CJ CJ 


CJ 


CJ CJ 


CJ 


CJ 


CJ 


CJ 


o 


CJ 


CJ 


O 


o 


CJ 


CJ 


CJ 


CJ 


CJ 


CJ 


CJ 




IMS® 




Finally, a newsletter that will 

keep you up to date on the 

latest Color Computer developments. 

SUBSCRIBE TODAY! 



□ Yes, enter my subscription to UNDERCOLOR 

□ 1 year (26 issues) $33 (first class mail, $38) 

□ 2 years (52 issues) $66 (first class mail, $68) 



□ 2 years $94.00 



Canada/Mexico 

□ 1 years $47.00 
Overseas 

□ 1 year $53.00 US dollars 

□ 1 year Airmail $65 US dollars 



Name 



Address 
City 



State 



Zip 



Mail to: Color Plus, Box 6809, Roxbury, VT 05669 
or call (802)485-6440 



12 m UnderColor 




ortran was the first of the high-level computer languages. 
It was designed primarily for scientific and mathematical com- 
puting, and in these areas a huge library of useful subroutines 
is available. The routines may be found in statistics, numerical 

mathnHo onrl Ho+o onolwoio tovtKrvAl/e onH oe nort r\4 rr»o'»*»- 

invn ■ ww } uiiu uuiiu lai iui y sjt\j iw/\ivwwi\0, wi iu UO l/ui I VI I I lull I - 

frame and minicomputer on-line libraries. Many routines, 
especially those written in the days when mainframe com- 
puters had the speed and memory size of current-day micros 
(or less!), were lovingly crafted for efficient use of limited 
memory, and are ideal for microcomputer use. The subrou- 
tines would have been written in Fortran II (up to about 1 963) 



or, in most cases, Fortran IV (the standard version, from 1963 
to about 1977). 

An option for folks who can't implement Fortran is to 
translate the subroutines into Basic. Listing 1 performs the 
most tedious and error-prone parts of the job automatically. 

It taLcQO o CTj^r+rori rr\i i+iriA ooi/oW oe on AOPII f!lo «ae innut nnrl 

II IUIWW U I VI LIUI I I VUlll IVy UUV VU fJL\J Ul I r~iw*»/ii I 1IV> C40 II IWUl, Cil l\J 

adds Basic line numbers, translates logical and arithmetic 
If statements and GOTO statements, and transforms Do loops 
into For-Next loops. It translates some Fortran keywords and 
function names, and flags other statements for further transla- 
tion (I/O statements, subroutine calls). The translated routine 
is written out as a Basic program in ASCII format. 
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Running 

Create the original ASCII file with a word processor or by 
downloading the Fortran routine from a mainframe or 
minicomputer using a modem. The file should be only one 
routine; Fortran line numbers may be repeated in different 
routines. 

The listing will ask for a five-digit line number to begin with, 
and Basic line numbering will increase in steps of 10 from 
this point. 

The Fortran source will then load from cassette and be 
translated. You may send the translated program to tape or 
the printer, or just view it on the screen. 

Listing 2 is the translated output of the sample Fortran 
source, provided for example. 

The translated Basic version will be saved to tape. You will 
probably have to complete the translation process manual- 
ly. Some Fortran statements are simply untranslatable: for 
example, there is no call subroutine in Basic. You will have 
to replace calls with GOSUBs, and resolve any variable name 
conflicts between the calling and the called routine. I/O 
statements will be flagged but not translated. Most Fortran 
programs assume that output goes to a printer with a 132 
column width; most write statements will have to be rewrit- 
ten for this reason, anyway. In any case, it is not considered 
good programming practice to have I/O statements in 
mathematical subroutines, so the problem may not occur. 

Some untranslatable keywords, such as implicit, 
equivalence, and so on, will be ignored by Translator. Since 
they always occur at the beginning of a routine, they are easy 
to find. Some— especially equivalence— may render the en- 
tire routine untranslatable, because their effects may not be 
duplicatable in Basic. You have to have a pretty good 
knowledge of Fortran to handle the more difficult jobs. 

Less common contructs, such as the seldom-seen assigned 
GOTO, and the Fortran 77 extensions, such as the elusive 
block if, are not translated. Older routines generally don't use 
such constructs— in fact, many don't even use the logical if, 
sticking strictly to the arithmetic version (translated to a Basic 
On . . . GOTO). Variable typing also is ignored, since Basic 
doesn't have double-precision or integer variables, and 
strings are rarely used in Fortran. Be sure to read through 
the Fortran source for potential problems. 

Even if no untranslated keyword occurs, you are likely to 
have problems with variable names. Any variable name that 
starts with a Basic reserved word is illegal. Thus, FNAME is 
perfectly legal in Fortran, but not in Basic, since FN is re- 
served. Also TIME1 and TIME2 are different variables in For- 
tran, but the same to your Color Computer, since Basic looks 
only at the first two letters. It is useful to use a variable name 
cross-reference generator, which will find all the variable 
names in a program and list them alphabetically. 

You can use the built-in Basic line editor to make the 
necessary changes, but a word processor or programming 
utility makes it much easier. Instead of changing each variable 
name individually, you can use a global search/change 
function. 

Also watch out for Fortran integer variables (those which 
start with letters I through N, unless explicitly declared other- 
wise) being set equal to real variables or expressions. You 
should use the Basic fix function on the real expression to 
chop off the' fractional part. 

The speed or size of the translated program can be im- 
proved with a little more editing. For example, in most cases, 



an arithmetic If can be reduced to a simple If . . . Then state- 
ment, rather than the On . . . GOTO produced by Translator. 

To add Fortran keywords to Translator's vocabulary, check 
the data statement in line 1320. Words to be flagged but not 
translated should be added to the beginning of the data state- 
ment. Also, add one to both of the numbers in line 1300 (total 
keywords and untranslated keywords). Keywords to be 
translated should be added to the end of line 1320, and only 
the first number in line 1300 increased. In both cases, the 
flag or the translation should go into the corresponding posi- 
tion in line 1340. Translation of constructs which need more 
than straight one-for-one replacement will have to be handled 
individually. 

The translator is written for 32K. If you have 16K, you 
should remove all remarks and unnecessary spaces, change 
line 90 to 90 clear 6000, and reduce NMAX in line 1100 to 
200. Before CLOADing the Translator, pclearo (poke 25,6 : 
new) to open up maximum memory. 

In spite of the exceptions, the great majority of Fortran IV 
statements will be successfully translated, (end) 



C TEST FILE FOR FORTOB AS 

SUBROUTINE STATS (Y, N, AVG, STDDEV, IERR) 
C DIM STATEMENT SHOULD BE REMOVED FOR BASIC: 

DIMENSION Y(l) 

IER=0 

AVG=0.0 

STDDEV=0.0 
C 

C MAKE SURE N IS GREATER THAN ZERO: 
■'''"■ IF (N) 999, 999, 100 
100 DO 200 I = 1, N 

AVG=AVG+Y(I) 

STDDEV=STDDEV + Y(l)**2 
200 CONTINUE 
C 
C "FLOAT" ISN'T NEEDED IN BASIC: 

AVG=AVG/FL0AT(N) 

STDDEV = SQRT(STDDEV/FL0AT(N) ..- AVG '-.**. 2) " 

GO TO 1000 / ;■■'.- ' : ;-. : ^%,-. 

c .'V-. '"■'•■ '"■:'■.''■ '/:'. ■■.:.: 7.;;::: 

C ERROR IN INPUT DATA: 
999 IER=1 - ' 

IF (N .EQ. 0) GOTO 950 
C N LESS THAN ZERO : 

WRITE (6,601) N ' : "VVV 

601 . FORMAT (IX, 'ERROR — N = ' , 15, ', LESS THAN 

'o') .-. . . ■;.; -:-.;■-; 

GO TO 1000 : : .: 

c -,-''''. ; ■■"'•: "■';. 

C N = ZERO: 

950 WRITE (6, 600) N 

600 FORMAT (IX, 'ERROR — N WAS ZERO') 

1000 RETURN 

C 

C *********************** 

C SOME DELIBERATE ERRORS: 

C -UNDEFINED LINE NUMBERS: 

GOTO 3000 

DO 3000 K=l, 5, 2 
C MISSING THIRD NUMBER: 

. IF (N) 999, 999 
C *********************** 

Figure 1. Sample Fortran Source 
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10 

20 'FORTRAN-TO-BASIC TRANSLATOR' 
30 ' 

40 ' ROBERT L. HAWKINS 

41 ' 1286 HUNTER AVE., APT. C 

42 ' P.O. BOX 8162 

43 ' COLUMBUS, OHIO 43201 

A A I I I I I I I I I I I I I I I I I I I I I I I I I I I I I 

80 CLS 4 : PRINT " fortran to basic translator" : 

PRINT 

90 CLEAR 16000 

994 ' =*= 

995 ^initialize*' 

1000 TRUE=-1 : FALSE=0 : IO=-l '10=1 FOR DISK 

1005 'LOGICAL-VALUED FUNCTIONS: 

1010 DEFFN CM(X)=(LEFT$(A$,1)="C") 'COMMENT? 

1020 DEFFN CON(X)=(MID$(A$ , 6 , 1 )<>" ") 'CONTINUATION 

? 

1030 DEFFNUM(X)=((D$>="0"AND D$<="9") OR D$=" ") 'N 
UMERIC OR BLANK? 

1094 ' =*= 

1095 'PROGRAM IS STORED IN Q$(0..NL). 

1096 ' 

1100 NMAX=600 : DIM Q$(NMAX) 
1110 NL=0 
1115 ' =*= 

1120 INPUT " STARTING LINE NUMBER >= 10000"; LN : 
IF LN<10000 THEN S0UND2.2 : GOTO 1120 'STARTING BAS 
IC LINE* 

1195 'LOGICAL OPERATIONS: 
1200 DATA 8 
1210 READ NOP 

1220 DIM FOP$(NOP), BOP$(NOP) 
1225 'FORTRAN OPS: 

1230 DATA .LT.,.GT.,.EQ. , .LE...GE. , .NE.,.AND. , .OR., 
.NOT. 

1235 'BASIC OPS: 

1240 DATA <,>,=,<=,>=,<>," AND "," OR "," NOT " 
1250 FOR 1=0 TO NOP : READ FOP$(I) : NEXT I 
1260 FOR 1=0 TO NOP : READ BOP$(l) : NEXT I 
1293 ' =*= 
1295 'FORTRAN TO BASIC KEYWORDS: 
1300 DATA 17, 10 

1310 READ NKEY, NSKIP '0..NSKIP ABORT FURTHER TRANS 
LATION 

1315 'FORTRAN: 

1320 DATA " READ("," READ ("," WRITE ("," WRITE ("," 
FORMAT ("," FORMAT ("," CALL EXIT "," CALL "," SUBR 
OUTINE"," DIMENSION"," CONTINUE ","SQRT(","SQRT (", 
"ALOG(","ALOG (","ATAN(","ATAN (","**" 
1335 'BASIC: 

1340. DATA " 'read("," 'read("," 'writeC'," 'writeC 
," 'formatC'," ' format ("," STOP ", " SUBGO "," <", 
" DIM"," : "," SQR("," SQR("," LOG("," LOG("," ATN( 
"," ATN(","~" 

1360 DIM FK$(NKEY), BK$(NKEY) 
1370 FOR 1=0 TO NKEY : READ FK$(l) : NEXT I 
1380 FOR 1=0 TO NKEY : READ BK$(l) : NEXT I 

1993 ' 

1994 ' =*= =*= =*= 

1995 '*read FORTRAN INTO Q$(1..NL)*' 
2000 PRINT 

2010 INPUT "FORTRAN FILENAME"; NM$ 

2020 Q$(0)="C PROGRAM "+NM$ 

2030 PRINT : PRINT " OPENING FILE" 

2040 OPEN "I",#IO,NM$ 

2045 'INPUT LOOP: 

2050 LINEINPUT#IO,A$ 

2055 'CONTINUATION CARD? IF So, CONCATENATE: 

2060 IF (FNCON(O) AND NOT FNCM(O)) THEN Q$(NL)=Q$(N 

L)+RIGHT$(A$,LEN(A$)-6) : GOTO 2090 

2065 'NO — A NEW LINE: 

2070 PRINT Q$(NL) 

2075 IF NL<NMAX THEN NL=NL+1 ELSE SOUND 2,2 : PRINT 

"TOO MANY LINES — " : INPUT" <ENTER> TO CONTINUE"; 

Z$ : GOTO 3000 



2080 Q$(NL)=A$ 

2090 IF NOT EOF(IO) THEN 2050 

2100 PRINT Q$(NL) 

2110 CLOSE#IO : SOUND 100,2 

2120 CLS 5 

2125 ' =*= 

2995 '*add basic line*' s*' (Q$(0. .NL) 

3000 FOR N=0 TO NL 

3010 A$=Q$(N) : LA=LEN(A$) 

3015 'COMMENT? 

3020 IF FNCM(O) THEN C$="REM "+RIGHT$(A$ ,LA-1) : GO 

TO 3060 

3025 'SPLIT FORTRAN LINE* (B$) FROM STATEMENT (C$): 

3030 Cl=5 : C2=7 : GOSUB 9050 

3040 LL=VAL(B$) 'LINE* FIELD 

3045 'PUT FORTRAN LINE* AT END OF LINE AS REMARK: 

3050 IF LL THEN C$=C$+" '"+STR$(LL) 

3055 'THE "5" ASSUMES 5-DIGIT BASIC LINE#'S 

3060 Q$(N)=RIGHT$(STR$(LN),5)+" "+C$ 

3070 LN=LN+10 'INCREMENT BASIC LINE NUMBER 

3080 PRINT Q$(N) 

3090 NEXT N 

3100 CLS 3 

3993 ' 

3994 • =*= =*= =*= 

3995 '*translate*'(Q$(O..NL); Q$(0..NL)) 
3997 ' 

4000 FOR N=0 TO NL 

4010 A$=Q$(N) : LA=LEN(A$) 

4020 IF MID$(A$,7,3)="REM" THEN 4200 'REMARKS UNCH 

ANGED 

4022 ' =*= 

4025 'TRANSLATE KEYWORDS: 

4030 FOR 1=0 TO NKEY : Cl=INSTR(6,A$,FK$(l)) : IF C 

1=0 THEN 4050 'SEARCH FOR KEYWORD 

4040 C2=C1+LEN(FK$(I)) : C1=C1-1 : Z$=BK$(l) : GOSU 

B 9000 : IF K=NSKIP THEN 4200 'REPLACE WITH BASIC 

4050 NEXT I 

4052 ' =*= 

4053 '"DO", "IF" AND "GO TO": 
4055 '"DO" STATEMENT? 

4060 COL=INSTR(6,A$," DO ") 

4070 IF COL THEN GOSUB 5000 : GOTO 4200 'DO-TO-FOR 

XLATOR 

4075 '"IF" STATEMENT? 

4080 COL=INSTR(6,A$," IF ") : IF COL=0 THEN COL=INS 

TR(6,A$," IF(") 

4090 IF COL THEN GOTO 6000 '"IF" XLATOR 

4095 '"GOTO"? 

4100 COL=INSTR(6,A$," GO") : IF COL=0 THEN COL=INST 

R(6,A$,")GO") 

4110 IF COL=0 THEN 4200 

4120 COL=COL+3 

4130 IF MID$(A$,COL,3)="T0 " THEN COL=COL+3 ELSE IF 

MID$(A$,COL,4)=" TO " THEN COL=COL+4 ELSE COL=0 
4140 IF COL=0 THEN 4200 
4150 GOSUB 7000 'GOTO XLATOR 
4200 PRINT A$ 
4210 Q$(N)=A$ 
4220 NEXT N 
4990 GOTO 8000 'FINAL OUTPUT 

4992 ' 

4993 ' =*= 

4995 '*do-to-for XLATOR* ' (A$ , LA; A$,LA) 

5000 Cl=COL : C2=COL+3 

5010 Z$="FOR" : GOSUB 9000 'REPLACE 

5015 'GET DO-LOOP TARGET LINE: 

5020 FL=VAL(RIGHT$(A$,LA-COL-3)) 

5025 'EXCISE IT: 

5030 Cl=C0L+4 : C2=C1+1 

5040 D$=MID$(A$,C2,1) 'SEARCH FOR NON-NUMERIC, NON-B 

LANK 

5050 IF FNUM(O) THEN C2=C2+1 ELSE 5100 

5060 IF C2<LA THEN 5040 'KEEP LOOKING 
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5065 'IF YOU GET HERE, ERROR: 

5070 EMSG$="LOST IN DO" 

5080 GOSUB 8500 

5090 RETURN 

5095 'FOUND — D$ IS FIRST CHAR OF DO VARIABLE NAME 

5100 DV$=D$ 

5110 C3=C2+1 

5120 D$=MID$(A$,C3,1) 

5130 IF D$="=" THEN 5170 'END OF VARNAME 

5140 DV$=DV$+D$ 'BUILD VARNAME 

5150 C3=C3+1 : IF C3>LA THEN 5070 'LOST 

5160 GOTO 5120 

5165 'EXCISE DO-NUMBER: 

5170 Z$="" : GOSUB 9000 

5175 'CHANGE "," TO "TO": 

5180 C1=INSTR(C1+1,A$,",") 

5190 IF C1=0 THEN 5070 'NO COMMA — ERROR 

5200 C1=C1-1 : C2=Cl+2 

5210 Z$=" TO " : GOSUB 9000 'REPLACE 

5215 'IF ANOTHER ",", => "STEP": 

5220 C1=INSTR(C1+3,A$ 5 ",") 

5230 IF C1=0 THEN 5300 

5240 C1=C1-1 : C2=Cl+2 

5250 Z$=" STEP " : GOSUB 9000 

5295 'NOW FIX TARGET LINE: 

5300 SV$=A$ 

5310 GOSUB 7500 'FIND BL FROM FL 

5320 IF EFLAG THEN EMSG$="DO-LOOP TARGET "+STR$(FL) 

+" NOT FOUND" : GOSUB 8500 : RETURN 

5330 A$=Q$(I) : LA=LEN(A$) 'TARGET LINE 

5335 'CHECK IF PREVIOUS "NEXT" HAS BEEN ADDED: 

5340 C1=INSTR(6,A$," : NEXT ") : IF (CKCOL AND CI) 

THEN C0L=C1 
5350 Cl=COL : C2=COL+l 

5360 Z$=" : NEXT "+DV$+" " : GOSUB 9000 
5370 Q$(I)=A$ 
5380 A$=SV$ : LA=LEN(A$) 
5390 RETURN 

5995 '*if xlator*'(A$,LA,COL; A$,LA) "IF (EXPR) STA 
TEMENT" 

6000 C9=COL : Cl=INSTR(COL,A$,"(") 
6010 IF C1=0 THEN 6900 'ERROR 
6015 'FIND MATCHING PARENS: 
6020 C3=l 

6030 FOR C4=C1+1 TO LA 
6040 D$=MID$(A$,C4,1) 

6050 IF D$=")" THEN C3=C3-1 ELSE IF D$="(" THEN C3= 
C3+1 

6060 IF C3=0 THEN 6100 
6070 NEXT C4 

6075 'IF YOU GET HERE, ERROR: 

6080 EMSG$="MISMATCHED PARENS IN IF" : GOSUB 8500 
6090 RETURN 

6095 'C3,C4 BRACKET (EXPR): 
6100 C3=C1 

6115 'IF LOGICAL OPS USED, ASSUME LOGICAL IF: 
6120 LFLAG=FALSE 
6130 FOR 1=0 TO NOP 
6140 C0L=INSTR(C3,A$,F0P$(I)) 
6150 IF COL=0 OR C0L>C4 THEN 6200 
6160 Cl=COL-l : C2=COL+LEN(FOP$(D) 
6170 Z$=BOP$(I) : GOSUB 9000 'REPLACE 
6180 C4=C4+LEN(Z$)-LEN(FOP$(l)) : LFLAG=TRUE 
6190 GOTO 6140 
6200 NEXT I 

6205 'LOGICAL OR ARITHMETIC? 

6210 IF LFLAG THEN C1=C4 : C2=C1+1 : Z$="THEN " : G 
OSUB 9000 : GOTO 4100 'LOGICAL 
6215 'ARITHMETIC: "IF (NUMBER) 100,200,300" 
6220 C1=C9 : C2=Cl+3 

6230 Z$="ON 2+SGN" : GOSUB 9000 'REPLACE "IF" 
6240 C4=C4+LEN(Z$)-2 'CLOSING PARENS 
6250 C1=C4 : C2=C1+1 
6260 Z$=" GOTO " : GOSUB 9000 'INSERT "ON ... GOTO" 

6265 'CHANGE TO BASIC LINE#'S: 



6270 C5=C4+LEN(Z$) 

6280 C2=INSTR(C4,A$,",") : IF C2=0 THEN 6900 

6290 GOSUB 7010 'REPLACE LINE* 

6295 'GET NEXT #: 

6300 C4=INSTR(C5,A$,",") : IF C4=0 THEN 6900 

6310 C5=C4 : C4=C4+1 

6320 C2=INSTR(C4,A$,",") : IF C2=0 THEN 6900 

6330 GOSUB 7010 

6335 'LAST ONE: 

6340 C4=INSTR(C4,A$,",") : IF C4=0 THEN 6900 

6350 C5=C4 

6360 FOR C2=C4+1 TO LA : D$=MID$(A$ ,C2, 1) : IF FNUM 

(0) THEN NEXT C2 ELSE C2=C2-1 : GOTO 6380 

6370 C2=LA+1 

6380 GOSUB 7010 

6390 GOTO 4200 

6895 '*if error*' 

6900 EMSG$="LOST IN IF" : GOSUB 8500 

6910 GOTO 4200 

6995 '*goto xlator*'(N,COL,A$; A$,LA) 

7000 C5=COL-l : C2=LA+1 'SKIP OVER " GO TO" 

7010 FL=VAL(RIGHT$(A$,LA-C5)) 'TARGET FORTRAN LINE# 

7020 GOSUB 7500 'FIND BL CORRESPONDING TO FL 

7025 'IF LINE NOT FOUND, ERROR: 

7030 IF NOT EFLAG THEN 7100 

7040 EMSG$="LINE# "+STR$(FL)+" NOT FOUND" 

7050 GOSUB 8500 'ERROR ROUTINE 

7060 RETURN 

7095 'TARGET LINE FOUND: 

7100 C1=C5 'C2 SET EARLIER OR BY CALLING ROUTINE 

7110 Z$=STR$(BL) : GOSUB 9000 'REPLACE LINE# 

7120 RETURN 

7495 '*find target line*'(FL; BL, EFLAG) 

7500 EFLAG=TRUE : Z$=" "'+STR$(FL) : LZ=LEN(Z$) 'TAR 

GET STRING 

7510 FOR 1=1 TO NL 

7520 C0L=INSTR(6,Q$(I),Z$) : IF COL<>LEN(Q$( I) )-LZ+ 

1 THEN COL=0 'DON'T CONFUSE "1000" FOR "100"! 

7530 IF COL THEN EFLAG=FALSE : BL=VAL(Q$( I) ) : RETU 

RN 'FOUND 

7540 NEXT I 

7550 RETURN 

7995 '*output*'(Q$(0. .NL)) 

8000 CLS : PRINT " TRANSLATED OUTPUT" : PRINT 

: IF IO>0 THEN IO$="dISK" : C$="SDPQ" ELSE IO$="cA 
SSETTE" : C$="SCPQ" 
8010 PRINT"OUTPUT TO:" : PRINT 
8020 PRINT" SCREEN ONLY" : PRINT 
8030 PRINT" ";IO$ : PRINT 
8040 PRINT" pRINTER" : PRINT 
8045 PRINT" qUIT" : PRINT 
8050 PRINT : PRINT "YOUR CHOICE?"; 
8060 Z$=INKEY$ 

8070 Z$=INKEY$ : IF Z$="" THEN 8070 

8080 I=INSTR(1,C$,Z$) : IF 1=0 THEN SOUND 2,2 : GOT 
8000 
8090 ON I GOTO 8100, 8200, 8300 : CLS : PRINTTAB(8) 

"== FINISHED ==" : END 
8095 'SCREEN: 
8100 PRINT 
8110 FOR 1=0 TO NL 
8120 PRINT Q$(I) 
8130 NEXT I 

8140 PRINT : INPUT "<enter> FOR MENU"; Z$ 
8150 GOTO 8000 
8195 'DISK/CASSETTE: 

8200 CLS : PRINT 10$; : INPUT " FILENAME"; NM$ 
8210 PRINT 

8220 OPEN"0", #10, NM$ 
8230 FOR 1=0 TO NL 
8240 PRINT#IO, Q$(l) : PRINT Q$(l) 
8250 NEXT I 
8260 CLOSE#IO 
8270 GOTO 8140 
8295 'PRINTER: 
8300 CLS 
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8310 FOR 1=0 TO NL 

8320 PRINT#-2, Q$(I) : PRINTQ$(l) 

8330 NEXT I 

8340 GOTO 8140 

8350 ' ************************ ' 

8495 '*error MESSAGE* 1 

8500 SOUND2,2 

8510 A$=A$+'"'****error**** "+EMSG$ : LA=LEN(A$) 

8520 PRINT A$ 

8530 RETURN 

8995 '*insert Z$ INTO A$*' (A$ ,LA,Z$,C1,C2; A$,LA) 

9000 GOSUB 9050 : GOSUB 9100 

9010 RETURN 

9045 '*split A$*'(A$,LA,C1,C2; B$,C$) 

9050 IF C1<1 THEN B$= ml ELSE B$=LEFT$(A$ ,C1) 

9060 IF C2>LA THEN C$="" ELSE C$=RIGHT$(A$ ,LA-C2+1) 



9070 RETURN 

9095 '*re-form A$*' (B$,Z$,C$; A$,LA) 

9100 A$=B$+Z$+C$ : LA=LEN(A$) 

9110 RETURN 



Listing 2. Translated Program Sample 

10000 REM PROGRAM FORTEST 

10010 REM TEST FILE FOR FORTOBAS 

10020 SUBROUTINE STATS (Y, N, AVG, STDDEV, IERR) 

10030 REM DIM STATEMENT SHOULD BE REMOVED FOR BASI 

C: 

10040 DIM Y(l) 

10050 IER=0 

10060 AVG=0.0 

10070 STDDEV=0.0 

10080 REM 

10090 REM MAKE SURE N IS GREATER THAN ZERO: 

10100 ON 2+SGN (N) GOTO 10220, 10220, 10110 

10110 FOR I = 1 TO N ' 100 

10120 AVG=AVG+Y(I) 

10130 STDDEV=STDDEV + Y(l)~2 

10140 : : NEXT I ' 200 

10150 REM 

10160 REM "FLOAT" ISN'T NEEDED IN BASIC: 

10170 AVG=AVG/FLOAT(N) 

10180 STDDEV = SQR(STDDEV/FLOAT(N) - AVG ~ 2) 

10190 GO TO 10320 

10200 REM 

10210 REM ERROR IN INPUT DATA: 

10220 IER=1 i. 999 

10230 IF (N = 0)THEN GOTO 10300 

10240 REM N LESS THAN ZERO: 

10250 'write(6,601) N 

10260 'format( IX, 'ERROR — N = ', 15, ', LESS THAN 

0') ' 601 
10270 GO TO 10320 
10280 REM 

10290 REM N = ZERO: 
10300 'write(6, 600) N ' 950 

10310 'formatC IX, 'ERROR — N WAS ZERO') ' 600 
10320 RETURN ' 1000 
10330 REM 

10340 REM ####################### 
10350 REM SOME DELIBERATE ERRORS: 
10360 REM UNDEFINED LINE NUMBERS: 
10370 GOTO 3000'****error**** LINE# 3000 NOT FOUND 

10380 FOR K=l TO 5 STEP 2'****error**** DO-LOOP T 

ARGET 3000 NOT FOUND 

10390 REM MISSING THIRD NUMBER: 

10400 ON 2+SGN (N) GOTO 10220, 999 '****error**** 

LOST IN IF 

10410 REM ####################### 
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#Fm: Roger Bouchard (to A. Flexser) 

Once again, what in heaven is wrong 
with the RAM hook? If need be you can 
use a disk routine by calling it by its 
command if you use the disk command 
table of pointers! 

(A reply follows:) 

Fm: A. Flexser (to R. Bouchard) 

Most disk commands do not have RAM 
hooks attached that are useful entry 
points from ML programs. 

To elaborate ... I do agree that the 
use of the command dispatch table (via 
the RAM entry point at $137 is a tech- 
nique that should be used when possible 
in preference to the more usual tech- 
nique of checking for version number 
and using one of two possible jump ad- 
dresses depending on version. But, the 
problem is that, more often than not, one 
does not want to jump into the ROM to 
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a point that corresponds to the first byte 
of a Basic command routine. Usually, 
one wants to skip over a scan for argu- 
ments, or use a subroutine that is also 
used by one or more Basic commands. 
The point is that more of these general- 
purpose entry points should have been 
alloted their own (ROM) vectors. 

* *Fm: Marty (to J. Ross) 

True, John, but the point of having an 
operating system in the first place is to 
nor force the programmer to write his or 
her own disk I/O, file handling, keyboard, 
screen, etc., routines. The solution you 
mentioned will work, but the fact that 
folks have to resort to it speaks of the 
abysmal lack of planning by Microsoft 
and Tandy in their miserable R/S DOS. 

(The one answer follows:) 

Fm: John Hoss (to Marty) 



I agree totally! But, since RS and Micro- 
soft did not see fit to supply constant 
vector tables, and insist on moving 
things around, that approach is the on- 
ly one that makes any sense! Otherwise 
you spend all your time changing ver- 
sions for new ROMs, and answering 
hate mail! 

•& #Fm: A. Flexser (to Marty) 

Yes, introducing those vectors in a "bet- 
ter late than never" fashion would be 
advantageous in limiting the number of 
versions future software might have to 
check for. Plus, if the same vectors were 
in the 09, it might lead to transportability 
between new CoCo software and that 
machine. 

(One reply follows:) 

Fm: Marty (to A. Flexser) 

Very good point. I didn't mention that. 
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But that point is probably the single 
most cogent argument for their bother- 
ing at all to introduce disk file I/O vec- 
tors at this late date. Yes, very good 
point indeed. Now let's see what ol' 
Wayne can answer to that one! (Boy, do 
I ever get annoyed by folks who apolo- 
gize for the blunders of others!) 

-fr -frFm: Wayne Day (to Marty) 

Simply because I'm tired of hearing peo- 
ple complain about the way it is . . . 

Tandy, again and for the last time, 
told folks from the very beginning to not 
use the un-documented calls . . . and 
those programmers who have made life 
very miserable for a lot of otherwise in- 
nocent folks. 

I'm interested mainly in the average 
non-techie user's viewpoint here ... not 
someone who knows how it's "sup- 
posed" to be done, but rather the per- 
son that plunks down $25 to $100 for a 
program and then finds it doesn't work 
on their machine. 

Again, I stand by my original state- 
ment, and it is one you can never 
change my mind about (at least until the 
hardware addresses change): The ma- 
jority of compatibility problems existing 
in the CoCo today are because of pro- 
grammers who were lazy, or inefficient, 
or simply unable to write their own code 
so that their product would be ROM- 
version independent. 

You, I, nor any of the people on this 
Sig will never change Tandy's mind 
about declaring all ROM calls, or at least 
the vectors, to be sacred. 

(One reply follows:) 

Fm: Marty (to W. Day) 

Guess you were serious in what you 
were writing, not just playing devil's 
advocate. Sorry to hear that. You are 
simply, totally, plumb dead wrong in the 
position you have taken. That's all there 
is to it, and it's really not much of a mat- 
ter of opinion. I'd venture to guess that 
95 percent or more of assembly lan- 
guage programmers for the CoCo would 
agree with me. If you've ever written or 
began to write a machine language pro- 
gram that did disk I/O of whole files on 
the CoCo and under other operating 
systems, you'd understand. Well, you're 
generally so right on most CoCo and 
computer-related matters that I guess 
you can afford the luxury of being total- 
ly, laughably wrong in this one area. 
Be well. 



(One reply follows:) 

Fm: John Ross (to Marty) 

I don't think Wayne is saying he agrees 
with their method, he is just saying that 
Tandy warned them, and they should 
have listened! Those that did not, have 
suffered for it, as have the people that 
buy their programs. 

(OK folks. That's the end of that conver- 
sation thread. Now, think back a few 
sections:) 

Fm: Marty (to S. Trevor) 

What you said has merit, but if you look 
at the variety of customized disk ROMs 
on the market, you'll find that virtually 
all of them leave DSKCON, its vectors, 
and the disk file handling code intact in 
the same places that it was in the R/S 
DOS parent ROM. That's why I sug- 
gested checking for version type by 
looking at the DSKCON vector. I grant 
you that if programmers were not so 
vain and did not mess with the version 
number byte, things would be better. 
But most programmers are vain! Also, 
vanity aside, what about this possibility? 
Tandy comes out with a new disk ROM 
version number, but the file-handling 
routines are in the same place. In such 
an event, your program would give up 
and die with a gasp of "alien ROM!," 
whereas one checked for vectors would 
go merrily on its way. Perhaps a more 
rigorous version type check would con- 
sist of checking both the DSKCON vec- 
tor and the first two bytes of the entry 
points to those subroutines that the pro- 
gram was to use. If those checked out, 
regardless of other mods, the odds 
would be good that it would have a 
friendly operating environment. What do 
you think of that idea? It's cumbersome, 
of course, but it might not be a bad idea. 

(A reply follows:) 

Fm: Sandy Trevor (to Marty) 

OK, we'll consider modifying the version 
check. 

Fm: A. Flexser (to S. Trevor) 

Sandy, I've got to agree with Marty on 
this. So what if a version check of 
DSKCON results in Vidtex mistakenly 
thinking that it is dealing with (say) RS- 
DOS 1 .0 when it is in fact dealing with 
a modified third-party ROM. If that 
modified ROM kept DSKCON in the 



same place as the RS-DOS ROM, 
chances are Vidtex will work OK. And 
if not, it'll just crash, which is exactly 
what it does now if that logo byte isn't 
in the right place. 

(A reply follows:) 

Fm: Sandy Trevor (to A. Flexser) 

It shouldn't crash! It should work fine but 
without the disk commands. What Disk 
ROM causes Vidtex to crash? 

(A reply follows:) 

Fm: A. Flexser (to S. Trevor) 

Anything (like JDOS, or ADOS in its in- 
itial versions) that doesn't have that logo 
byte where Vidtex expects it to be. It just 
locks up, as I recall. (Wayne, is that your 
recollection from the early ADOS?) 

(A reply follows:) 

Fm: Mike Ward (to A. Flexser) 

I wonder why nobody seems to have 
any trouble with the Mouse? (Clara runs 
it on a CoCo II with 1 .1 Disk ROMs.) You 
use ADOS and I clunk along with my old 
1 .0 ROMs . . . 

(Two replies follow:) 

Fm: Wayne Day (to M. Ward) 

It obviously couldn't be superior pro- 
gramming! hehehe 

(The reply is:) 

Fm: Mike Ward (to W.Day) 

Undoubtedly true! They're merely 
flabbergasted! 

Fm: A. Flexser (to M. Ward) 

Because you took the "lazy" way and 
used undocumented ROM calls, you 
layabout, you! 

(The reply:) 

Fm: Mike Ward (to A. Flexser) 

That's true, and I also was careful to see 
which version of the ROMs are installed, 
if i can't figure it out, I assume 1.0. 

(The reply:) 

Fm: A. Flexser (to M. Ward) 
Sounds good to me! (end) 
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Disk Drive 
Controllers: 
A Comparison 

By Martin Goodman, M.D. 

PRODUCT 

CoCo II Disk Controller 

Radio Shack 

$90-$130 

J&M Controller 

J&M Systems 

Albuquerque, NM 

$120-$140 

HDS Disk Controller 
HDS 



Since the introduction of the Color Computer there 
have been at least seven different Color Computer 
Floppy Disk Drive Controller boards available to the 
public. Of these, three have enjoyed extremely wide- 
scale sales, and two of those three are still in pro- 
duction. I'm going to concentrate on the two popular 
ones currently being sold, but I'll mention others. 

What is a Floppy Disk Controller? It's that black 
box that plugs into the side of the CoCo (or into your 
system bus) at one end, and through a cable to your 
disk drive unit(s) at the other. In the case of the CoCo 
disk controller, this item is a circuit board that con- 
tains both the hardware needed for the computer 
to talk to the disk drive (disk controller chip and 
numerous small scale logic support chips) and the 
added software (usually Disk Extended Color Basic) 
needed to drive the hardware. That software is ac- 
tually "firmware"— a ROM or EPROM chip. It's im- 
portant to remember that while you often buy the 
two (disk operating system software and hardware) 
together, in a CoCo disk controller they are two 
separate items. That is, one can plug a different 
ROM or EPROM into the disk controller and have 
either Disk Extended Color Basic, JDOS, Spectrum 
Dos, ADOS or any of a number of different variant 
Disk Basic operating systems. 

Warning: While a disk controller is meant to con- 
nect to its disk drives through a ribbon cable, it is 
nor designed to connect to the computer through a 
ribbon cable. While a number of third party suppliers 
sell "Disk Extender Cables" and "Y cables," I urge 
you not to use such products! Both the lack of proper 
grounding and the added capacitance of the ribbon 
cable on the unbuffered CoCo's system bus will, on 
many systems, cause intermittent system crashes 
(typically during disk drive use). This is a lesson I've 



learned through bitter experience and extensive 
testing and polling of my fellow CoCo users. Heed 
this warning! 

With one trivial exception, to be mentioned at the 
end of this article, all CoCo disk controllers are 
designed to hook up to any 35- or 40-track single- 
sided double-density disk drive. With appropriate 
exotic operating systems they can be all made to 
operate, to some degree or other, with double sided 
and/or 80-track drives, but such operation is for ex- 
perienced system hackers only. Most CoCo users 
should stick with the Tandy standard, of 40-track 
single-sided double-density drives. I myself take this 
advice. Experienced OS-9 users and BBS system 
operators may be exceptions. 

• Tandy was the first to introduce a double den- 
sity disk controller for the Color Computer. This, the 
CoCo I disk controller, was the only game in town 
for quite a while. It worked reasonably well, even 
though in some respects its design was a bit clumsy. 
I've been using a CoCo I disk controller on my main 
CoCo system for the last two years, and it has been 
trouble free. My criticisms of the unit relate to the 
fact that some of them tended to pop their 74LS02 
chips now and then, and that they sometimes re- 
quired adjustments of the potentiometers on the 
oscillator for the data separator. 

There is another problem with the old CoCo I disk 
controllers: when Tandy stopped making the old D, 
E, and NC (F) boards, and switched over to making 
the Color Computer 2, they altered the computer so 
it no longer provides +12 volts on its system bus. 
The CoCo I disk controller required +12 volts to 
operate its archaic Western Digital 1793 chip. So 
unless you modify your CoCo 2 (articles have been 
written about this) you can't use the old CoCo I con- 
troller directly with the new CoCo 2. If you are us- 
ing a Tandy or PBJ multiple port bus, you will be 
able to use a CoCo I controller with a CoCo 2. 

The CoCo I disk controller is no longer sold. Tandy 
has discontinued it in favor of its CoCo 2 disk con- 
troller. The CoCo 2 disk controller represents a 
distinct improvement over its predecessor. Its cir- 
cuitry is cleaner and requires less frequent 
adjustments; because Tandy switched over to the 
Fujitsu MB8877A disk control chip, it does not re- 
quire + 12 volts. This means it works equally well 
on both the older and the newer model Color Com- 
puters. It is available from Tandy National parts, if 
you order the circuit board and the two halves of the 
plastic shell. Cost will be between $90 and $130. 
Overall, the CoCo 2 disk controller is a very reliable, 
well-designed and -built unit. I have one very serious 
criticism of it: despite insistent please from knowl- 
edgeable users and hackers over the last five years 
(this stems from the days of the Model I) Tandy still 
has not plated the connectors of its disk controller 
with gold. There is abundant evidence that the fail- 
ure of Tandy to do so has resulted in system crash 
after awhile, due to oxidation of the contacts on the 
disk controller. A partial remedy consists of period- 
ically removing the disk controller card from its shell 
and gently cleaning its contacts with a soft pencil 
eraser. I've "repaired" at least three Radio Shack 
store computers in just such a fashion. 

The permanent fix consists of either sending the 
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unit out to a qualified electrical gold-plating establish- 
ment (hard to find) or soldering on a product called 
the Gold Plug. This item is sold by EAP Corporation, 
POB 14, Keller, TX 76248, (817)498^242. It requires 
a little hardware ability to install, but once installed 
it will fully cure problems relating to oxidation of the 
contacts. Cost of the package is around $18. 

I should note in passing that Tandy, in a display 
of sublime technical stupidity, has recently started 
releasing ROMpaks with gold-plated connectors 
(ROMpaks don't really need gold-plated connectors) 
but still does not gold plate the connectors of the 
disk controller or the Multipak, both of which do need 
gold plating. 

• By far the best known and most widely sold non- 
Tandy CoCo disk controller is made by J&M Sys- 
tems of Albuquerque, NM. This unit came on the 
market just before the arrival of the Tandy CoCo 2 
disk controller. It features competent design, a stur- 
dy metal case, and gold-plated connectors. This last 
makes it a very desirable unit. I and many friends 
have used the J&M Systems controller extensively 
and have generally been very pleased with its 
reliability and ruggedness. The circuit board is well 
laid-out and manufactured in a high quality fashion. 
Like the CoCo 2 disk controller, it features a quartz 
crystal-controlled phase-locked loop data separator 
that requires no adjustment. 

When friends of mine managed to blow out their 
unit (by unplugging it from the computer while the 
system was on) J&M provided extremely prompt 
repair services. Overall, it's a very nice unit, superior 
in some ways to the Tandy product, and I recom- 
mend it. It retails for around $120 to $140. I have 
a few complaints and cautions about the J&M pro- 
duct: J&M gave me a run-around when I tried to 
order a schematic from them. For months they 
stalled me . . . first refusing to send me one, then 
claiming they were in the process of printing a ser- 
vice manual. After about a half-dozen calls over a 
four month period (and a letter), I finally received 
a badly Xeroxed copy of the schematic and some 
other technical info, including spec sheets on the 
Synertec chip they use in their controller. They 
charged me $25 for those 10 pages. 

The J&M controller uses a Synertec disk controller 
chip which is very similar to, but slightly different 
from, the Fujitsu chip used in the Tandy CoCo 2 disk 
controller. While this will make no difference in run- 
ning normal software, some weird copy protection 
schemes may result in disks that won't load on 
systems with the J&M system controller, and some 
disk clone programs may not work properly with that 
controller. Also, the Synertec chip is much harder 
for the hacker to find. 

The J&M disk controller is sold with a choice of 
disk operating systems on ROM or EPROM. You 
can order it with Tandy's Disk Extended Basic or 
with JDOS, an "enhanced" Disk Basic. Don 't buy 
it with JDOS: order it with Tandy's standard Disk 
Basic. If you do not heed this warning you'll discover 
a number of valuable pieces of software that simply 
won't run right under JDOS. While JDOS is allegedly 
"compatible" with Tandy's Disk Extended Basic, 
don't believe it!* 



• HDS Disk Controller: HDS (formerly Compukit) 
is advertising a disk controller of its own design. This 
unit will be available as an assembled and tested 
unit, as a kit, and as a bare-board with instructions. 
The company apparently has a sensible policy of 
making documentation on their product freely avail- 
able. I had a chance to play with one of these units; 
it featured not one, but two 24-pin ROM sockets, and 
a jumper for selecting one ROM or the other. This 
makes it possible to quickly switch between two dif- 
ferent operating systems (say JDOS and Tandy's 
Disk Extended Basic). This feature is of moderate 
interest to hardware hackers, but in my opinion vir- 
tually worthless to the average user. Unfortunately, 
both sockets are 24-pin. It would have been much 
better had HDS offered one of the two sockets as 
a 28-pin socket to fit 2764 EPROMs, which are much 
cheaper and more available than the 24-pin 68764's 
that the unit current requires. 

I briefly tested the unit and it appeared to func- 
tion well. While I did not have a schematic, the cir- 
cuit seemed very similar to that of the Tandy CoCo 
2 disk controller. I then proceeded to modify the 
board to accommodate a 28-pin 2764 in one of the 
slots so its owner could use both 2764 and 27128 
EPROMs in it. In the course of doing this, I discov- 
ered the printed circuit board to be made in a 
significantly inferior fashion to that of the J&M and 
Tandy boards. It lacks lacquer and is much more 
easily damaged. The traces on the board seemed 
thinner and more fragile than those on the Tandy 
and J&M boards. 

I'd previously modified CoCo I, CoCo 2 and J&M 
disk controller cards to take 28-pin sockets. Modi- 
fying this one proved five times harder, due to the 
flimsy construction of the board. Therefore, my first 
impression of this unit is that one should not buy it 
unless one is an inveterate kit builder (it is the only 
unit offered as a kit). The assembled unit may also 
be of interest to hackers, because unlike both the 
Tandy and J&M units, HDS sockets all chips on the 
board.* 

• Modifying a controller for 28-pin sockets: CoCo 
2 disk controllers are about the easiest to modify for 
28-pin sockets, with J&M and CoCo I controllers just 
a little more difficult. The technique I use requires 
a 28-pin AUGAT-style socket. I clip off the thin part 
of pins 1 , 2, 28, 27 and 26 socket, leaving the fat 
part of the pin under the socket as something to 
solder to and as a physical spacer under the socket. 
I then prepare each socket by soldering on 30 gauge 
wires as needed to these "stumps" of pins. I then 
desolder the 24-pin socket, place tape on top of the 
area where the socket was, make needed trace cuts 
on the board, solder in the modified 28-pin socket, 
then hook up loose ends, including running a wire 
from pin 26 of the socket to land 37 (A13 line) on 
the CoCo port edge-connector. 

When modifying J&M controllers you'll have to 
fuss with the + 5 volt supply, as there's a trace you 
must cut but aiso jumper to a further point. You'll 
see what I mean if you look carefully at it and if you 
know what you're doing. 

The whole process is a bit delicate but not all that 
difficult. It takes me about an hour. I've done it about 
half a dozen times now. Pin-outs for the 68764 and 
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27128 are, of course, essential. There are about 
three pins that need to be reshuffled. As an added 
hint, I'll tell you that pins 1 , 27, and 28 of the 28-pin 
socket are wireu to eacn other and to the -f-5 line. 
Pin 2 of the 28-pin socket is connected to the trace 
that formerly went to pin 1 8 of the old 24-pin socket. 
Pin 23 of the 28-pin socket is connected to the trace 
that formerly went to pin 1 8 of the 24-pin socket. Pin 
20 of the 28-pin socket goes to ground. Pin 26 of 
the 28-pin socket is jumpered to land 37 (A13) on 
the CoCo bus edge-connector. The 28-pin socket 
is inserted into the holes for the 24-pin socket so 
that pin 3 and 26 of the 28-pin socket line up with 
pins 1 and 24 of the holes for the 24-pin socket. 

All unmentioned pins connect straight through . . . 
no further jumpers needed. 

• Other units: I've seen or heard of three other 
disk controller units for the CoCo. One features a 
28-pin socket so you can jumper to accept either 24- 
or 28-pin EPROMs. Another is from DSS (formerly 
Saturn). And if I'm not mistaken, Star Kits was once 
marketing a disk controller, though it may have been 
one of the above two. Both units seemed to work 
acceptably, but I really can't recommend either, if 
only because they're odd-ball items that offer little 
if anything in either price or performance over the 
more widely distributed controllers. Please note I'm 
not saying they're any worse than the more com- 
monly sold units—merely that they did not appear 
to be to be significantly enough better to warrant 
buying an obscure item. 

Hard-core CoCo trivia buffs will be amused to 
learn that the late Exatron Corp. briefly marketed 
a single-density disk controller and operating system 
for the CoCo before Tandy came out with its system. 
The only example of such a unit in captivity that I 



know of is at the home of Bob Rosen. Indeed, I 
viewed the other two less well-known CoCo disk con- 
trollers at Bob Rosen's "Museum of Weird and Ob- 
scure CoCo Hardware." 

• Conclusions: there you have it. At least seven 
different disk controllers were designed and pro- 
duced for the Color Computer. But only two are in 
current production and in wide circulation. Deciding 
between these two will be difficult. The J&M unit is 
a bit superior to the Tandy unit, and comparably 
priced. I would prefer that unit because of its gold- 
plated connectors. But the Tandy unit is not bad, 
especially if you solder on EAP Corp. Gold Plugs 
to it. Hackers will be disappointed to hear that all 
small-scale logic chips on both the CoCo 2 (Tandy) 
and the J&M disk controller are soldered, not 
socketed. Tandy repair is accessible around the 
country via your local R/S store. This may influence 
some to stick with the Tandy product; but as I write, 
the somewhat superior J&M product is serviced 
promptly and conscientiously by mail by J&M. I've 
several positive reports from satisfied J&M 
customers who needed repairs and no negative 
ones, (end) 



* Since this review was written, both HDS and 
J&M have issued new controllers. Both use the 
new Western Digital Controller, a 28-pin sec- 
ond generation disk controller. All contacts on 
both of these controllers are now gold-plated. 
The J&M controller now supports 2764 and 
27128 EPROMs; the new HDS controller sup- 
ports 2764, 27128 and 27256 EPROMs. 



Space Shuttle 

By Jeffrey S. Parker 

PRODUCT 

Space Shuttle 

By John Frayesse 

Tom Mix Software 

4285 Bradford N.E. 

Grand Rapids, Ml 49506 

(616)957-0444 

Requires 32K Extended Color Basic 

$28.95 Tape 

$37.95 Disk 



"Houston, this is Discovery, we have achieved 
altitude and are on course. Velocity 12000." 



"Roger, Discovery, we copy. Telemetered data is 
5-10-10 on the plot board. Standby for main booster 
shutdown at 53000." 

"10-4, Houston, that's a go. We have orbit. 
Satellite on tracking, Houston. My God, Houston, 
the stars sure are bright out here!" 

If you have ever seen the pictures of the space 
shuttle in the magazines, or ever watched a launch 
on tv, then you have probably wondered what it 
would really be like to fly the Space Shuttle. Now, 
John Frayesse, a software author for Tom Mix Soft- 
ware, has given you that opportunity, right in your 
own living room, on your Color Computer. 

The Space Shuttle simulator is just that, a simula- 
tion, not a toy or a game. While it doesn't cost the 
millions and millions of dollars that NASA's cost, and 
it will not enable you to walk into NASA and present 
your credentials as an astronaut, it will give you a 
good sense of what it is like to fly the space shuttle. 

This program probably pushes the Color Com- 
puter to the very limits of its 32K capacity. The 
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graphics display incorporates high resolution mov- 
ing graphics and text. The display screen is usually 
running four separate data displays at the same 
time. These graphic displays are some of the most 
sophisticated and detailed displays created for the 
Color Computer. 

The documentation to fly your simulator provides 
you with a mission plan in five parts, and guides you 
in ten carefully detailed pages through each of the 
phases of the flight plan necessary to successfully 
complete your mission: Phase 1 is Launch, in which 
you must achieve a specific orbit and course direc- 
tion; Phase 2 is Park, in which you must successfully 
locate and place the shuttle in a "parking orbit" near 
a damaged communications satellite; Phase 3 is 
Fetch, in which you must open the shuttle bay doors, 
manipulate the robot arm to capture the satellite, 
bring it safely back into the shuttle, and close the 
bay doors; Phase 4 is Entry, the most difficult part 
of the simulation, in which you must guide the shuttle 
to a course, altitude, speed, and target destination; 
Phase 5 is Final Approach, in which the shuttle is 
now a supersonic glider, that you must glide safely 
to the runway, fighting crosswinds to make a precise 
touchdown. 

If all these tasks are not enough of a challenge, 
the whole mission is flown against a time clock and 
a fuel gauge. You are given the weather conditions 
and the runway heading at the beginning of every 
flight, and these coordinates are different each time 
you fly. Are you still sure you want to be an 
astronaut? 

The flight controls, like the screen displays, are 
intricate. The keyboard and one joystick are used, 
but the joystick has a different orientation for each 
phase of the mission. For example, the joystick con- 
trols the main engines during launch (phase 1), but 
when the satellite is being retrieved during phase 
3, the joystick controls the robot arm. 

The instrument panel is also complex, constant- 
ly changing during the flight to bring you the essen- 
tial data you need regarding course, velocity, speed, 
and altitude. In addition, you are given a plotting 
scope, similar to radar, and event labels, which 
change as you proceed from one phase or subphase 
of the mission to the next. You are provided with fuel 
consumption data, a mission clock, a shuttle mode 
indicator, (to indicate which engines are on), and a 
reaction jet console to tell you which of the steering 
motors is being fired to move the shuttle in a given 
direction. Extra data as to runway heading and the 
range to the runway is provided during the landing 
phase. The view out the window of the shuttle also 
changes from phase to phase, showing you the 
launch, as you move through the clouds into space, 
the parking "windows" to approach the satellite, the 
view of the shuttle aft, as you watch the doors open 
and the arm operating, and finally, after blackout on 
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Space Shuttle is a very sophisticated demonstra- 
tion of what the Color Computer can do. The pro- 
gram provides hours of challenge and fun, and some 
learning as well, as to what it takes to fly a real space 
rocket. Some of the best features of the program 



are its high resolution graphics and sound effects. 
The moving graphics display, and the multifunction 
instrument display, are some of the finest uses of 
animated graphics I have seen for this machine; they 
are a real pleasure to experience. The boredom or 
"shelf" factor of Space Shuttle is extremely low, 
because no two flights are alike, so the simulator 
does not lose its challenge even after repeated use. 
The debriefing, in which you receive your flight time, 
score, and other landing or ("sigh") crash data after 
every mission is excellent in helping you track your 
flight failures and successes. 

There are only three weaknesses that I found in 
flying the Space Shuttle Simulator. The first is the 
use of the reset button to control the color calibra- 
tion. The graphics are very nice, but having to reset 
and then run the program as much as twenty or 
more times before beginning can be frustrating in- 
deed. A good deal of calibration is necessary 
because blue and red can become interchanged due 
to the use of multicolored high resolution graphics. 

The second is the Fetch phase of the flight. This 
segment is used to give the pilot a guaranteed score 
of at least 100 points. If you fail before and after the 
Fetch, the shuttle computer puts the ship on auto- 
matic, and you are penalized points and time and 
aborted to the next phase of the flight. The Fetch 
phase does not have that option; the satellite must 
be retrieved to continue, and there is no abort. 
Retrieving the satellite is a relatively simple feat, and 
can become boring and repetitious. This step could 
be made more challenging by adding a timer, or by 
repositioning the satellite slightly differently each 
time, rather than in one given spot to the left or right 
of the shuttle. 

Last but not least, in the actual Park phase, where 
you must put the shuttle in an orbit window near the 
satellite, you are required to use the up or down ar- 
rows on the keyboard to accelerate or deccelerate 
to match orbits with the satellite. The keyboard read 
routine in this part of the simulation is very slow, and 
sometimes you must wait several seconds to push 
the key again before the computer will scan and ac- 
cept the command. This can cause you to fly right 
by the satellite, and abort this phase of the mission. 
A more rapid keyboard scanning here could help this 
problem, especially since the machine is busy with 
so many other simultaneous calculations. 

All in all, Space Shuttle is an entertaining and 
rewarding program, with some very accurate and 
realistic details. While this is not a game, and I do 
not recommend it for young children or those unac- 
quainted with other flight simulations, Space Shut- 
tle provides hours of satisfaction to anyone who 
enjoys meeting difficult challenges. The displays and 
moving graphics are finely detailed, realistic and ac- 
curate, and are a pleasure to experience. 

One final note is that the product is guaranteed 
to load for one year from purchase. As ii happened, 
the copy I received on disk did not load. Tom Mix 
Software was both courteous and extremely quick 
to replace my copy. It is not only a pleasure to use 
the Space Shuttle Simulator, it is a pleasure to do 
business with such a responsive company, (end) 
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Trivia 
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PRODUCT 

Tr/Wa Fever 

Professional Software, Inc. 

P.O. Box 533 

Needham, MA 02194 

64K Extended Basic 

$29.95 Disk 



Q: What is gray or white, has 53 keys and plays 
trivia games? 

A: Your Color Computer. 

Trivia Fever is a computerized trivia game that 
provides a more random selection of questions than 
its manual counterparts, as well as some desirable 
automatic features. Up to eight players or teams may 
participate. A question book and tally sheets are also 
provided for non-computerized play. 

Under its blue and gray cover lies a slickly ex- 
ecuted OS-9 program. However, there's no need to 
buy an OS-9 operating system; side one of the disk 
includes an OS-9 boot and system disk with game 
instructions. On the reverse side reside the ques- 
tion files. 

Complete instructions are given for running Trivia 
Fever on Disk Basic 1 .0 and 1 .1 . On the newer 1 .1 
Disk Basic, typing dos and the enter key will load 
and execute the program. Using Disk Basic 1.0, 
there are two alternatives. If you presently own the 
OS-9 operating system, merely insert the boot disk 
and run it. Otherwise you must create your own boot 
disk using the 21 line program described in the 
documentation: such a disk could just as easily have 
been provided by the manufacturer as a conve- 
nience to the user. Troubleshooting hints are en- 
closed in case the program does not load properly. 
My sample copy showed no hesitation in loading. 

Instructions for playing Trivia Fever can be ac- 



cessed by typing y at the first prompt. If you want 
to review parts of the rules, these may be restarted 
by pressing i. Once the Trivia Master is chosen and 
the individuals or teams entered, the disk should be 
turned over and reinserted. At this point, play begins. 

There are several features in Trivia Fever that 
enhance game play. A built-in timer counts down the 
amount of time a contestant has left to answer a 
question. Current scores can be handicapped in 
three different ways: 1) by the number of points 
necessary to complete a category; 2) random selec- 
tion of question categories; and 3) by the amount 
of time given a specific player to answer a question. 

The object of the game is to successfully complete 
questions in each of five subject categories. Ques- 
tions may be chosen from three levels of difficulty. 
Once the level is chosen, the computer picks a ran- 
dom query. If a question repeats itself during the 
contest, it may be scratched by the Trivia Master 
and another can be chosen. Witty little remarks are 
made after each question is answered, such as 
"Don't get too excited, everybody gets that one." 

Overall, Trivia Fever appears to be well organized 
and has clear instructions. It shares enough similar 
traits with another famous trivia game that an ex- 
perienced player should be able to proceed with 
minimal instruction. The self-scoring timing and han- 
dicapping are desirable features because they 
handle some of the game's tedious tasks auto- 
matically. Still, the human intervention of the Trivia 
Master is important, as he or she becomes the 
moderator and final judge of the game events. 

Looking beyond the basic package, there seem 
to be enough additional question disks available 
to keep a trivia buff occupied for quite awhile. An 
enclosed order blank lists ten more disks of trivia 
questions that can be ordered from PSI for $24.95 
each. Volumes 2-4 are currently available. Topical 
disks include Trivia Fever Super Sports, Trivia Fever 
Entertainment, and Trivia What's in a Word, 
available at $39.95. Multiple Learning Disks, listed 
as "to be announced," contain various questions 
in academic areas. Perhaps parents and teachers 
will be able to cash in on the trivia game popularity 
for reviewing and memorizing facts. 

I have one suggestion for PSI: make a do-it- 
yourself system disk that would allow the student, 
teacher or parent to enter their own categories and 
questions, (end) 



CLASSIFIED ADS NOTICE 

Readers: Classified ad space is available at the rate of 
$1.25/word. No headings or bold type will be allowed in user 
ads. Be sure to include your name, address and telephone 
number for responses. Payment must accompany your ad 
order. For deadline, call Under Color at (802) 485-6440. 

Commercial classified ads are also available at higher rates. 
Advertisers call (802) 485-6440 for rates and deadlines. 



COCO USERS— Free 24 page software and hardware CoCo 
Catalogue. Spectrum, POB 9866, San Jose, California 
95157-0866. 
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Price Changes 
Occur On A 

Daily Basis. 

Please Call 
1-800-343-8841 



PRICE BREAKTHROUGH 



Price Changes 

Occur On A 

Daily Basis. 

Please Call 

1-800-343-8841 



megadisktm HARD disk drive systems TOLL FREE ORDERING 1-800-343-8841 

., IBM/PC, Tandy 1000, TRS/80 Models I/III/IV/4P, Compaq, Eagle, Sanyo, 
ror tne Ta ^ pQ WorkalikeS) Co | or Computers, Apple/Franklin, Heath/Zenith, Max/80 
Complete with Hardware, Cables, Software and Quikfit Installation 

5 Megabytes Internal Mount starting at $ 449.95 

10 Megabytes Internal Mount starting at 599.95 

20 Megabytes Internal Mount starting at 1,199.95 

5 Megabytes External System starting at 649.95 

10 Megabytes External System starting at 849.95 

20 Megabytes External System starting at 1,299.95 

3 . 3 Megabytes Kodak Backup System starting at 599.95 

Streaming Tape Backup System starting at 899.95 

nftC c . . .... IBM/Heath — DOS, 1.0, 2.0, 2.1, 3.0, or later — Apple Franklin — DOS 3.3, Prodos 

DU55 Systems Available: TRS /80-LDOS, TRSDOS 6.x, Newdos/80, Dosplus, CP/M, COCO DOS, Max/80 LDOS, OS9 

WARRANTIED FOR ONE FULL YEAR — PARTS AND LABOR — 24 HOUR SERVICE — CALL TOLL FREE — 1-800-343-8841 



FLOPPY DISK DRIVES 

Our Disk Drives arc UL approved — Our Floppy Drive Cabinels and Power Supplies 

are Underwriters Laboralory Lislcd and have passed the required Federal 

Communications Pari 15 Section B-EMI/RF1 tests. 

Warranty un all disk drives is one full years parts and labor. Warranty on floppy disk 

drive power supplies is five (5) years. In warranty or out of warranty service is 24 hour 

lurn-a-round on all disk drives. 

Tandon — Full Height Drives 

100-1 Single Sided 40 Ik Bare S128.00 

In Case with Power Supply 169.95 

Dual Drives in One Cabinet 329.95 

100-2 Dual Sided 40 tk Bare 165.00 

In Case with Power Supply 209.95 

Dual Drives in One Cabinet 384.95 

Half High Drives 

65-1 Single Sided 40 tk Bare 125.00 

In Case with Power Supply 159.95 

Dual Drives in One Cabinet 309.95 

65-2 Dual Sided 40 tk Bare 145.00 

In Case with Power Supply 179.95 

Dual Drives in One Cabinet 349.95 

65-4 Dual Sided 80 tk Bare 165.00 

In Case with Power Supply 199.95 

Dual Drives in One Cabinet 359.95 

TEAC Half High Drives 

55A Single Sided 40 tk Bare 140.00 

In Case with Power Supply 169.95 

Dual Drives in One Cabinet 319.95 

55B Dual Sided 40 tk Bare 160.00 

In Case with Power Supply 199.95 

Dual Drives in One Cabinet 359.95 

55F Dual Sided 80 tk Bare 180.00 

In Case with Power Supply 219.95 

Dual Drives in One Cabinet 389.95 

Apple/Franklin Disk Drives 

35/40 Track in Case with Cable and Software 159.95 

Controller Card for Two Disk Drives 49.95 

Combination Price for Disk Drive and Controller 199.95 

Commodore Disk Drives 239.95 

COLOR COMPUTER DISK DRIVE SYSTEMS AND ADD IN PRODUCTS 

40 Track Single Head Drive with Case, Power Supply, Cable 

Controller, Instruction Booklet, Diskettes $279.95 

Above with Dual Drives in One Cabinet 413.95 

40 Track Dual Head with Case, Power Supply, Cable, 

Controller, Instruction Booklet, Diskettes 289.95 

Above with Dual Drives in One Cabinet 429.95 

128 Memory Upgrade Kit 129.95 

Dual DOS Switch 19.95 

With Second DOS System — JDOS, RSDOS, Micro DOS 48.00 

TRS/80 HARDWARE 
Model I Starter System — Delivered by UPS 
One Single Sided Disk Drive, Case, Cable, Power Supply, 

TRSDOS 1.3 and Manual S220.00 

Model II1/IV Easy to Install Disk Drive Systems 309.95 

Memory Upgrades — 4116 and 4164 starling at 1.50 ea. 



ALL IN-STOCK ITEMS SHIPPED WITHIN 24 HOURS. SAME DAY SHIPPING 
PROVIDED BY REQUEST WITHOUT ANY EXTRA HANDLING CHARGES. 



COMPUTERS 

All of our computers come with a full one year Warranty — Parts and Labor — 24 
Hour Service on all in slock parts. 

1BM/PC-256K Two Floppy Drives, One Year Warranty Sl.895.00 

With Monitor Card and High Resolution Monitor 2,195.00 

1BM/PC-256K 5 Megabyte Drive, One Floppy Drive 2,495.00 

With Monitor Card and Monochrome Monitor 2,695.00 

10 Megabyte System 2,695.00 

With Monitor Card and Monochrome Monitor 2,995.00 

IBM Lookalike Monitor 800h x 650v resolution w/cable 199.00 

TRS/80 Model IV Computer 128K Dual Drive RS232 1,095.00 

PRINTERS 

Dot Matrix 

Star Micronics 

Gemini X-Series Parallel 120 CPS starling at S259.95 

Delta 10/15 160 CPS starting at 424.95 

Radix 10/15 200 CPS starling at 649.95 

Panasonic 1090 249.95 

Daisy Wheel 

Silver Reed 440 80 Column 12 CPS 315.95 

550 132 Column 19 CPS 439.95 

770 132 Column 36 CPS 895.00 

Olympia 132 Column 14 CPS with Form and Tractor 399.95 

Star Micronics 100 Column 18 CPS 352.95 

Apple/Franklin Primer Interface w/Graphics and Cable 84.95 

Primer Cables starling ai 19.95 

Printer Paper — Microperf Edge 1000 Sheets 16.95 

ELECTRICAL 

Surge Protectors — Line Filters — SL Waber — 6 Outleis with Swilch S 39.95 

Unintcrruptable Power Supplies — Panamax 250 Watt-15 Minute 399.95 

MODEMS 

Volksmodem 300 Baud S 59.95 

Signalman Mark X Audodial 123.95 

Mark XII 1200/300 Baud Autodial 284.95 

ADD IN BOARDS FOR THE IBM 

STB — Rio Plus 128K S299.95 

Super Rio 128K 219.95 

Graphix Plus 283.00 

Graphics Plus II 355.00 

Parallel Printer Porl 74.95 

Serial Port 84.95 

Monochrome Board with Parallel Printer Port 210.00 

Quadram — Quadboard 512 128K 269.95 

Quadcolor I 215.95 

Quadcolor II 439.95 

MISCELLANEOUS 

Diskettes in 10 Pack from $ 12.95 

Twoprinl Switches from 99.95 

Disk Drive Cables from 16.00 

Maintenance Cleaning Kits 12.00 

Parallel Printer Buffers 16K 149.95 

Floppy Disk Drive Cables 

1 Drive 16.00 

2 Drives 18.95 

Heath/Zenith 2 Drive Cables — Shielded 39.95 



SOFTWARE SUPPORT, INC 

1 Edgell Road, Framingham, MA 01701 (617) 872-9090 Telex-383425 

Hours: Mon. thru Fii. 9:30 arn to 5:30 pin (E.S.T.) Sat. 10 am to 3:30 prn 

SERVICE POLICY — Our Professional Technical Staff Is Available To Assist You Monday Through Saturday. 

WARRANTIES — Disk Drives — One Full Year Parts And Labor. Floppy Disk Drive Power Supplies — Five (5) Years. 

SERVICE — 24 Hour Turn-A-Round On All In-Stock Parts. Price Changes Occur On A Daily Basis. Please Call 

Toll Free 1-800-343-8841 

For Our Latest Price Saving Specials. 
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CoCo's Best & Fastest Spreadsheet System 

ACCLAIMED BY THE EXPERTS 

"DYNACALC is my choice for a CoCo spreadsheet." 
Dan Downard, RAINBOW, September, 1984. 



RAINBOW 

CERTIFICATION 
SEAL 




"Eat your heart out, Lotus 1-2-3!" 
Scott Norman, HOT CoCo, October, 1984. 

Built-in Features: 

• 51 x 24 Display with Lower Case 

• Super-fast Smart Screen Refresh 

• Auto-Repeat Keyboard Driver 

• Keysaver (TM) repeats last command x times 

• Disk Operating System (works just like ROM DOS) 

• Easy communication with BASIC/DOS programs 

• Two-way communications with PRO-COLOR-FILE • Enhanced* 

• Outputs to ASCII Word Processors like Telewriter-64 

• Fast 16-Digit Arithmetic with Scientific Functions 

• Summation, Mean, and Standard Deviation Functions 

• Logical Functions with String & Numeric Comparison 

• String locate command to navigate large worksheets 

• Sort full or partial worksheet by columns or rows 

• Line, Bar, Hi/Lo/Close, Circle Graphs 

• Full Graphics captioning and overlay facility 

• Graphics Drivers for all popular Printers 

• Joystick/Mouse Driver for Cursor Movement 

• Works with any ROM versions, even JDOS 

• 33k Available Worksheet Space 

• Up to 256 Columns or 256 Rows 

• Can use VisiCalc worksheets & training materials 

• On-screen Help Messages 

FOR 64K DISK SYSTEMS 

available from 



$9995 
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now with 

GRAPHICS! 



COMPUTER SYSTEMS CENTER 

^.^ 42 Four Seasons Center #122 

\&$* ^ c Chesterfield, MO 63017 




(314) 576-5020 
10 to 6 Mon.-Fri. 
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CANADA- CDN $129.95 

RGS MICRO INC. 

759, VICTORIA SQUARE 405 

MONTREAL H2Y 2J3 

TEL.: (514) 287-1563 

ORDER LINE ONLY • • • 

QUEBEC-ONTARIO-MARITIMES 

800-361-5338 

WESTERN CANADA 800-361-5155 





or your local DYNACALC dealer 

Price US$99.95 
Outside North America add $10 postage 

DYNACALC Reg. U. S. Pat. Off. 

Lotus and 1-2-3 are trademarks of Lotus Development Corp. 

PRO-COLOR-FILE is a trademark of Derringer Software 

Telewriter-64 is a trademark of Cognitec 

VisiCalc is a trademark of VisiCorp. 



